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AQUAD 

Jeu cFarcade aquatique. 
100% langage machine : 
excellent graphisme 
110F 

PLAYBOX 

A vous de jouer : 
AWARI, POKER, POKER 
MORPION, JACKPOT, 
MASTERMIND, HOLD-UP réunis 
pour vous dans PLAYBOX 
100 F 



Ces logiciels sont disponibles chez votre 
revendeur habituel. 
Distribués par INNELEC : 840.24.31 
et VISMO : 338.60.00 



Jeu de rôles en français, 
des milliers de possesseurs 
d'Atmos l'ont apprécié. 
Disponible maintenant 
pour votre C.P.C. 
185 F 
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Vente Informations Services Micro-Ordinateurs 



84, bd Beaumarchais - 75011 Paris 22, bd de Renilry - 78012 Paris 

Métro Bastille ou Chemin Vert Métro Daumesnil ou Dugommier 

De 10 h à 20 h sauf dimanche. 538 -' , - -i De 14 h à 20 h sauf dimanche et lundi 
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CE LOGICIEL VOUS PERMET 



200 COMPTES 

750 ECRITURES 

PLAN COMPTABLE AVEC COLLECTIFS GESTIOM 

OUVERTURE DES COMPTES 

SAISIE DES ECRITURES 

TENUE DES COMPTES en permanence 

CONSULTATION DU JOURNAL DES COMPTES 

CONSULTATION de le BALANCE 

EDITION DES LISTINGS SUR IMPRIMANTE 

LISTING DES COMPTES 

JOURNAL GENERAL 

GRAND-LIVRE 

BALANCE 

TEST DE CONFORMITE DU PLAN COMPTA BLE 

CONSERVATION DES DONNEES SUR CASSETTE 

LOGICIEL ACCESSIBLE IMMEDIATEMENT 

PROTECTION DES DONNEES PAR UNE CLEF 
EMPECHANT TOUTES INDISCRETIONS 



POURQUOI ATTENDRE 

PROGRAMME COMPTAMSTRAD SUR 
DISQUETTE 750 F RS ' 

PRIX PUBLIC 450.00 FRS TTC 



SOMMAIRE l\l°g 

ÉDITO 5 

AMSTRAD, QUELLE POLITIQUE ? 6 

NOUVELLES - COURRIER DES LECTEURS 7 

DÉCOUVERTE DU 664 8 

LA SAUVEGARDE DES DONNÉES 10 

LES TOUCHES POUR FAINÉANTS 11 

ESSAIS DE LOGICIELS 14 

UN ÉDITEUR SE PRÉSENTE 15 

INITIATION À L'ASSEMBLEUR 17 

TRACEUR DE CAMEMBERT 19 

VIE PRATIQUE 22 

LASER'S BYKE 25 

CHOIX D'UNE IMPRIMANTE 30 

FONCTION PAINT 33 

TRACER DES CERCLES 35 

MATRIX 37 

LE COIN BIDOUILLE 39 

TOUS À TABLE 43 

AWARI 46 

PETITES ANNONCES 49 



NOS ANNONCEURS 




VISMO 3 - COBRA SOFT 9 - 


ORDIVIDUEL 13 - ONDE MARITIME AQUITAINE 29 - 


LOGISYS 30 - SORACOM 50 - 


- NORSOFT II - ERE INFORMATIQUE IV 



BULLETIN D'ABONNEMENT 



ABONNEMENT POUR UN AN - 11 NUMEROS 
6 mois : 99 F — d'essai 3 mois : 50 F 



175 F 



NOM PRENOM 

ADRESSE 

CODE POSTAL VILLE 



Signature 

Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. 

Retourner ce bulletin ou une photocopie à : 

Editions SORACOM — Service abonnements CPC — Le Grand Logis — 10, avenue du 

Général de Gaulle - 35170 BRUZ. 



CPC 

La revue des utilisateurs 

d'AMSTRAD 

Publication mensuelle 

Rédaction-Administration : 

SORACOM - SARL au capital de 
50 000 F, Le Grand Logis, 
10, avenue du Général de Gaulle, 
35170 Bruz - Tél.: (99) 
52.98.11 — lignes groupées — 
Télex : 741.042 F. 

Directeur de publication : 

Sylvio FAUREZ 

Rédacteurs en chef : 

Marcel LE JEUNE 
Denis BONOMO 

Secrétariat : 

Florence MELLET 

Abonnements - Vente au 
numéro : 

Catherine FAUREZ 

Maquette 

SORACOM 

Composition : 

FIDELTEX 

Impression : 

JOUVE MAYENNE 

Distribution : 

NMPP 

Publicité : 

IZARD CREATIONS 
66, rue St. Hélier, RENNES 
Tél.: (99) 31.64.73 
Dépôt légal à parution 

Copyright & 1985 
CPC est une revue mensuelle 
totalement indépendante 
d'AMSTRAD (GB) et d'AMS- 
TRAD FRANCE. 

Les articles et programmes que nous 
publions dans ce numéro bénéficient pour 
une grande part du droit d'auteur. De ce 
fait, ils ne peuvent être reproduits, imités, 
contrefaits, même partiellement sans l'auto- 
risation écrite de la Société SORACOM et de 
l'auteur concerné. Les différents montages 
présentés ne peuvent être réalisés que dans 
un but privé ou scientifique mais non com- 
mercial. Ces réserves concernent les logi- 
ciels publiés dans la revue. 



EDITORIAL 



POUR VOS PROCHAINS 

PASSAGES DE PUBLICITÉ 

CONTACTEZ 

IZARD CRÉATIONS 

Tél.: (99) 31.64.73 



Réaliser une revue au service d'un seul ordinateur demande à l'édi- 
teur de faire un choix, choix qui représente en fait une politique 
commerciale. 

Ou nous éditons une revue dont le but essentiel consiste à rame- 
ner de la publicité tout en faisant du rédactionnel qui plaît, ou 
nous éditons une revue au seul service des utilisateurs en les infor- 
mant en toute indépendance. 

Dans tous nos domaines, qu'il s'agisse de la revue MEGAHERTZ, 
de CPC ou de THEORIC, nous avons opté pour la seconde solu- 
tion. Nous agissons en toute indépendance des importateurs, des 
revendeurs ou des fabricants. Toutefois, dans ce dernier cas, il 
nous arrive de faire des reportages, car nous estimons que tous 
les fabricants français doivent être connus. 
Il était donc nécessaire de le rappeler aux lecteurs qui ne nous 
connaissent pas. Si nous écrivons qu'un produit est bon, c'est 
que nos techniciens (qui ne sont pas des "marchands de papier") 
l'estiment comme tel sans préjugé d'aucune sorte. 
Outre les rubriques nouvelles, nous avons décidé de faire béné- 
ficier nos lecteurs de notre expérience réalisée dans le cadre d'un 
autre mensuel. Vous aurez la possibilité de vous procurer la dis- 
quette des programmes présentés dans CPC (UNE DISQUETTE 
POUR DEUX NUMEROS). 

La rubrique courrier technique est à votre disposition. Nous vous 
répondrons soit directement, soit par votre mensuel. Enfin, vos 
petites annonces sont jumelées avec nos deux autres mensuels. 
Cela vous fait 3 possibilités de vendre pour le même prix. 
Ces choses étant écrites, toute l'équipe vous souhaite de bon- 
nes vacances, si ce n'est déjà fait. Notre prochain numéro en 
septembre. 

Sylvio FAUREZ 
Directeur de publication 



AMSTRAD 

QUELLE POLITIQUE? 



Florence MELLET 
Sylvio FAUREZ 



L'expérience précédente, celle 
d'ORIC FRANCE, montre, 
s'il en était besoin, la fragilité du 
marché de la micro-informatique. 
APPLE, le célèbre géant, n'est-il 
pas lui-même en train de mordre 
la poussière ? 



La vie, voire la survie d'une 
machine, son succès également, 
dépendent parfois de peu de cho- 
ses. Dans le cas d'AMSTRAD, le 
rapport qualité/prix n'est pas 
étranger à son succès rapide. 
Cependant, il est nécessaire de 
replacer cet événement dans son 
contexte. Les problèmes d'ORIC 
FRANCE, l'absence sur le marché 
français de certaines machines, 
annoncées à grand renfort de 
publicité, l'insuccès des MSX, 
ont singulièrement aidé l'implan- 
tation d'AMSTRAD. 
Le handicap qui fut le sien les pre- 
miers mois tend à se réduire. 
Logiciels, livres et revues arri- 
vent, même si certains opportu- 
nistes ne connaissant rien à la 
micro, se jettent sur le "mor- 
ceau" ! 

Nous sommes donc allés voir 
AMSTRAD FRANCE d'un peu 
plus près dans ses nouveaux 
locaux de Sèvres. De magnifi- 
ques locaux, dans un site très 
calme. Nous voulions savoir qui 
étaient ces étranges importateurs 
venus d'ailleurs. 
Car venus d'ailleurs est l'exacte 
vérité. AMSTRAD FRANCE est 
une SARL, filiale de la marque 
anglaise. M. QUENTIN, qui nous 
a reçus, est le directeur techni- 
que, et Mme. VANIER, la 
gérante. Les capitaux sont 
anglais. Voilà déjà une différence 
avec les importateurs des autres 



marques. Ici, nous avons une 
filiale, pas un importateur. Le lec- 
teur doit aussi savoir que M. 
QUENTIN manie fort bien la lan- 
gue de Shakespeare. Normal, il a 
passé de nombreuses années de 
l'autre côté du "CHANNEL". 
Ceci explique peut-être son air 
très réservé. 

Cette SARL a créé 25 emplois. 
Les ventes ? Si l'on en croit les 
chiffres donnés par M. QUENTIN, 
elles sont de 62 000 pour le 464 
et 24 000 pour le 664 avec un 
espoir d'atteindre rapidement les 
72 000 machines pour le pre- 
mier, et les 40 000 pour le 
second. En effet, il semble que 
cette proportion soit définitive, le 
664 représentant 30 % des ven- 
tes globales, la différence étant 
faite avec le lecteur de disquet- 
tes vendu séparément. 
Là où nous attendions nos repré- 
sentants de la marque, c'est au 
niveau des retours et du service 
après-vente. Il semble qu'actuel- 
lement le taux de retour soit 
inférieur à 1 %, ce qui est mieux 
que bien. Nous avons vérifié 
auprès de nombreux revendeurs, 
et ils nous ont confirmé ce taux 
exceptionnel. Quant au SAV, 
M. QUENTIN connaît trop les 
problèmes engendrés par un 
mauvais SAV pour ne pas s'être 
penché sur cette importante 
notion de service. Si nous 
n'avons pas les statistiques fran- 
çaises, nous pouvons parler de 
celles d'Angleterre. Spectrum 
25 %, VIC20 18 %, COMMO- 
DORE 64 13 %, AMSTRAD 4 %. 
Encore que ce taux "aurait" 
encore baissé. 

Enfin, les prévisions de ventes les 
plus optimistes d'Angleterre 
furent largement dépassées puis- 



que le quota imposé a été 
dépassé de 5000 machines ! 
Comme aime à le souligner M. 
QUENTIN : heureusement, les 
Anglais avaient du stock. Pour ce 
qui concerne les logiciels, il 
estime à 40 % le nombre de 
"valables". Quel avenir ? La poli- 
tique économique de cette SARL 
l'a conduite à se pencher sur le 
marché PME et PMI, donc des 
professionnels. En effet, le client 
commence souvent par un CPC 
pour passer plus tard sur un IBM. 
En fait, il sert de machine d'ap- 
pel et d'entraînement. Concep- 
teurs de logiciels, à vos machi- 
nes ! Nous avons noté pour vous 
encore deux points : AMSTRAD 
est vendu en RFA sous la marque 
SCHNEIDER, et le prix pratiqué 
en France est identique à celui 
pratiqué en Angleterre. 
Maintenant, reste à savoir de 
quoi sera réellement fait l'avenir, 
car si actuellement cette marque 
détient 60 % du marché en pro- 
vince, et 40 % à Paris, gageons 
que les autres constructeurs ne 
vont pas rester les deux pieds 
dans le même sabot. Nous avons 
d'ailleurs demandé si les prix pra- 
tiqués n'étaient pas des prix de 
dumping. M. QUENTIN s'en 
défend et nous rappelle, comme 
il l'a fait auparavant, que les prix 
sont identiques à ceux pratiqués 
par la maison anglaise. 
Tout de même, pourquoi cette 
insistance à ne pas vouloir parler 
de la future machine AMS- 
TRAD ? car elle est bien en 
projet. 

En conclusion, nous pouvons dire 
que les revendeurs ont bien de la 
chance : ils ne vendent pas le 
CPC, ce sont les clients qui 
l'achètent tous seuls ! 
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M. MAGNAC - 33 BORDEAUX 



Est-il possible de se servir du pro- 
gramme MIRAGE du n° 1 pour lire 
des programmes ou disquettes en 
Basic protégé ? 

Comme nous l'avions écrit dans 
l'article, les deux programmes 
donnés sont utilisables avec des 
disquettes. Seulement, les fichiers 
sur disque ne sont pas séquentiels 
comme sur la cassette, il faut donc 
impérativement les appeler par leur 
nom. Pour utiliser le premier pro- 
gramme avec les disquettes, il sera 
nécessaire de le réassembler en 
indiquant le nom du fichier qui doit 
être lu. 
Par exemple, vous avez un pro- 



gramme en Basic protégé qui s'ap- 
pelle PROG.BAS et vous voulez le 
lire avec le programme n° 1 , il faut 
alors remplacer la ligne assembleur 
11 par : 

BUFF : DB 'PROG.BAS',0DH 

BUFF : DB 'PROG.BAS',0BH 

Il est alors nécessaire de réassem- 
bler le programme. Les utilisateurs 
de disques pourront améliorer le 
programme en introduisant une 
routine permettant de lire au cla- 
vier le nom du fichier à lire sur le 
disque. 

Pour l'utilisation du programme 
numéro 2 avec les disques, la pro- 
cédure est la même. 



VU EN ANGLETERRE 



UN ASSEMBLEUR EN ROM 

Des programmes en cartouches 
pour CPC. Voilà de quoi rêver ! 
Le premier est d'une utilité incon- 
testable : un éditeur-assembleur- 
désassembleur. 

Son nom MAXAM, distribué par 
Arnor Ltd. Souhaitons qu'il ne 
tardera pas à arriver en France ! 
Annoncé comme étant rapide 
(3000 lignes/minute), il possède 
un éditeur plein écran. Citons 
encore l'affichage du contenu 
des registres, la possibilité de 
mettre des points d'arrêt, la 
recherche de chaînes en RAM, 
déplacements et effacement de 
blocs de lignes et un désassem- 
bleur incorporé. 

La ROM utilise le port extension 
de la machine, et une carte est 
disponible pour éviter d'immobi- 
liser le port (cas de l'utilisation du 
drive). Une EPROM 16 K contient 
le soft, et la RAM utilisateur reste 
entièrement à votre disposition. 
Le prix, de l'autre côté de la Man- 
che : 60 £. Souhaitons qu'il ne 
s'amplifie pas trop en la traver- 
sant. Existe aussi sur disque et 
sur cassette (dans ce dernier cas, 
possibilités plus réduites). 



TASPRfNT POUR 

DONNER UN AUTRE 

STYLE A VOTRE IMPRIMANTE 

Utilisable sur différents types 
d'imprimantes (Brother, Epson, 
Mannesman-Tally, etc. et bien 
sur la DMP 1 ) ce logiciel vous per- 
mettra de modifier le style de 
l'impression en tirant le meilleur 
parti de votre imprimante : carac- 
tères gras, stylisés, etc. 5 types 
de fontes différents. Un "plus' 
pour votre imprimante... (Prix : 
10 £). 

SIMULATION DE VOL 

Des simulateurs de vols, sur CPC, 
il y en a plusieurs, des bons et des 
moins bons ! FIGHTER PILOT de 
Digital Intégration passe pour un 
des meilleurs. Nous avons relevé 
l'existence de "Myrddin Flight 
Simulation" qui, outre l'affichage 
de la planche de bord détaillée, 
offre une vue externe en "3D". 
L'étendue du territoire sur lequel 
vous évoluez est assez impor- 
tante pour rendre chaque vol dif- 
férent, et vous avez le choix 
parmi 15 types d'appareils. De 
quoi s'envoyer en l'air ! (12 £ 
chez les Anglais). 



- Chez LOISITECH un langage 
FORTH sur disquette en CPM 2.2 
accompagné d'un manuel de 50 
pages. Le tout pour 300 francs. 

- Chez SAGEST-INFORMATI- 
QUE les logiciels anglais TAS- 
MAN adaptés en français : TAS- 
WORD, TASPRINT, TASCOPY, 
SEMDRAW et DUPLIC. 

- Chez FRACIEL le super 
TURBO PASCAL en CPM 80 de 
BORLAND International avec 
documentation en français. Ega- 
lement TURBO TUTOR, qui est 
en cours, de PASCAL et TOOL- 
BOX pour TURBO PASCAL qui 
contient trois utilitaires, augmen- 
tant la puissance de TURBO PAS- 
CAL tout en réduisant le temps 
de développement des program- 
mes. Nous aurons l'occasion de 
revenir plus en détail sur ces logi- 
ciels, développés par un français, 
dans un prochain numéro. 

Chez COBRA SOFT, on annonce 
5 utilitaires ; 

• MAGIC PRINTER : éditeur- 
compacteur de dessins. Pour 
créer vos jeux d'aventures. 

• AMSTRAL : astrologie. Thème 
astral. Edition graphique sur DMP 
1. 

• BIORYTHMES : avec calendrier 
perpétuel. Edition graphique sur 
DMP 1. 

• POLYFICHIERS : gestion de 
fichiers. 

• GESTION : pour le suivi de 
votre compte bancaire. 

LASERDATA 

Vidéo Technologie importe un 
magnétophone à cassette LASER- 
DATA spécialement conçu pour le 
CPC 664. Nous aurons l'occasion 
de vous en présenter un banc 
d'essai complet dans un prochain 
numéro. 




DECOUVERTE DU 664 



Si CPC numéro 1 a été bien 
accueilli par les lecteurs, cer- 
tains n'ont pas manqué de nous 
faire remarquer l'absence d'infor- 
mations sur le CPC 664. 
Rassurez-vous, CPC est une 
revue pour TOUS les utilisateurs 
d'ordinateurs AMSTRAD et, si 
nous n'avons pas parlé du 664 
dans le numéro 1 , c'est que nous 
n'en avions pas à la rédaction. 
Cette lacune étant comblée, nous 
allons vous le présenter. 
Bien qu'il faille saluer l'événement 
(un ordinateur complet avec lec- 
teur de disquettes pour 4500 F, 
c'est peu banal), on ne peut pas 
parler de révolution. Voyons 
pourquoi ! 

Le 664 se présente sous le même 
volume que le 464. Le "design" 
du boîtier a été légèrement revu, 
et l'aspect général nous paraît 
plus agréable. L'intégration du 
lecteur de disquettes, en lieu et 
place du magnétophone à casset- 
tes, s'est faite sans nuire à l'es- 
thétique de la machine. 
Les couleurs des touches du cla- 
vier ont également changé : le 
gris clair et le bleu clair se marient 
fort bien (quoique le choix du bleu 
ciel soit contestable), et l'ensem- 
ble fait plus sérieux que les tou- 
ches multicolores du 464. Mais 
l'habit ne fait pas le moine ! En 
effet, le clavier est beaucoup plus 
désagréable au toucher. Les 
cabochons semblent être d'un 
plastique plus léger et les touches 
s'enfoncent moins que sur le 
464, avec un cliquetis qui rap- 
pelle celui des claviers d'ordina- 
teurs de bas de gamme. Dom- 
mage ! Un des points forts du 
464 était justement son clavier 
au toucher agréable ; il disparaît 
un peu sur le 664... 
Continuons notre exploration 
visuelle. Les touches de curseur 
ont été agrandies et regroupées 
en forme de carré, à l'instar de la 
disposition adoptée sur le MSX. 
Le pavé numérique est à la même 
place. Un "f" devant chaque 
chiffre rappelle l'utilisation possi- 
ble en touches de fonctions. Le 
dessus de la disquette est sérigra- 
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phié avec un tableau donnant le 
code des couleurs et le numéro 
des touches du clavier. 
L'arrière du boîtier de l'unité cen- 
trale laisse apparaître les diffé- 
rents connecteurs d'extension : 

— sortie pour deuxième disque, 

— bus d'extension pour périphé- 
riques, 

— sortie imprimante, 

— entrée/sortie cassette, 

et, bien sûr, la prise joystick et les 
alimentations. 

Il est important de souligner que, 
à l'inverse du 464 où la 
connexion d'un drive condamne 
l'utilisation du port extension, 
celui-ci reste entièrement dispo- 
nible sur le 664. Un grand pro- 
grès ! L'entrée/sortie cassette est 
une prise DIN, mais nous y 
reviendrons. 

Le moniteur est légèrement diffé- 
rent, en ce sens qu'il fournit, en 
plus du 5 V, le 12 V nécessaire 
à l'alimentation de la disquette. 
Il n'y a aucun risque de mélanger 
les deux cordons d'alimentation, 
détrompés par des fiches de 
sexes différents. 
Côté soft, le 664 propose AMS- 
DOS, le système d'exploitation 
des disquettes, résidant propre à 
AMSTRAD CP/M 2.2 version 
légèrement simplifiée du très 
célèbre CP/M et le LOGO de Digi- 
tal Research. Fort, très fort, pour 
un ordinateur familial ! Quand on 
sait que PASCAL est déjà dispo- 
nible sur disquette, on se prend 
à rêver. Cette "démocratisation" 
du disque et des langages sophis- 
tiqués devrait combler l'utilisateur 
de plus en plus exigeant. 
AMSDOS permet de gérer deux 
"drives", A et B. On conserve 
malgré tout la possibilité d'utili- 
ser des cassettes. A ce propos, 
soulignons le problème (qui 
n'existait pas sur le 464, et pour 
cause !) du choix du magnéto- 
phone... Des problèmes de char- 
gement en perspective ! 
Si la compatibilité du 464 vers le 
664 est annoncée, elle n'est, 
hélas, pas toujours vérifiée... Cer- 



tains logiciels utilisaient, sur le 
464, toute la mémoire disponi- 
ble : comme celle-ci a quelque 
peu diminué sur le 664, ils ne 
fonctionnent plus ! De même, 
l'adjonction de fonctions Basic 
supplémentaires sur le 664 a cer- 
tainement conduit les créateurs à 
un remaniement de la ROM. 
Moralité avant d'acheter, 
assurez-vous personnellement (et 
non sur des "on dit") de la 
compatibilité. 

La disquette est un outil perfor- 
mant mais fragile. N'ôtez jamais 
une disquette pendant qu'elle 
tourne dans le lecteur ! Les dis- 
quettes 3" retenues et le DOS 
permettent de stocker 1 60 k- 
octets par face. Le bouton d'éjec- 
tion de la disquette nous a sem- 
blé un peu dur. 

L'éditeur, déroutant, du 464 
aurait pu être amélioré... on le 
retrouve tel quel sur le 664. Seu- 
les quelques nouvelles fonctions 
améliorant la gestion de l'écran 
(surtout en graphisme) ont été 
ajoutées. Les créateurs ont 
notamment prévu une synchroni- 
sation du graphisme et du 
balayage TV, facilitant les anima- 
tions. Ce souci aurait pu être 
poussé jusqu'au bout en ajoutant 
une création/gestion de SPRI- 
TES... ou un simple CIRCLE ! Par 
contre, l'effacement du buffer 
clavier est maintenant possible. 
Ouf ! 

Il est vrai que cet aspect "ludi- 
que" sera négligé par les utilisa- 
teurs visant à faire, avec leur 
664, une application profession- 
nelle. Ceux-là regretteront l'ab- 
sence de gestion de fichiers à 
accès direct. Pour eux, côté hard, 
il aurait été intéressant de dispo- 
ser d'une E/S série pour effectuer 
le couplage avec un MODEM 
(type RS 232) ou des impriman- 
tes "pro". A notre avis, c'est 
dans ce milieu (PME/PMI) que le 
664 devrait faire très, très mal. 
Si bon nombre de "hobbyistes" 
seront séduits par la disquette 
incorporée (quand les program- 
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mes suivront), il est certain que 

les utilisateurs "professionnels" 

sont très tentés par cette 

machine. 

Une' configuration "de base" 

suggérée : 

664 monochrome 4500 F 

Drive 2 2000 F 

Imprimante (100 cps) 3500 F 

1 000 F 




Reste à savoir si les logiciels vont 
suivre, dans un créneau de prix 
raisonnable. Signalons déjà la 
"Facturation" ultra sophistiquée 
de LOGICYS à moins de 1000 F. 
Les possesseurs de 464, tentés 
par le 664, auront, par contre, 
tout intérêt à conserver (plutôt 
que de vendre d'occasion avec 
une décote souvent importante) 
leur machine et lui adjoindre un 
lecteur de disquettes (2500 F). 
Livré avec un manuel d'utilisation 
très bien fait, incluant une intro- 
duction à CP/M et à LOGO, se 
terminant par des exemples de 
programmes, le 664 est un beau 
pied de nez à ceux qui préten- 
daient que le Z80 était mort, et 
qui ne jurent que par des 1 6 bits 
qui n'en finissent pas d'arriver et 
de prouver ce dont ils sont capa- 
bles. 

Nul doute que le 664 ne permette 
à AMSTRAD FRANCE de dépas- 
ser, sans aucun problème la barre 
des 1 00 000 (464 + 664) avec la 
vision la plus pessimiste qui soit, 
et si on est optimiste... 



Evidemment -U tit lMÀÀM.VntnA. en tan- 



et de 



MEURTRE A GRAHVE VITESSE^ HO F 

Une enquête potitCtne à boid du TGV ! Un logicitt paaionnant tt original : de. 

VERITABLES und*.ctA tont ^ouinx.i dani la botte. ! Ce logiciel déjà duiporû-bte -lut 

Oià.c eX ThomAon a tti iatui pai ta pi tut connut un des mtitttuiA jeux dt l'annét. 

■ COBRA PIN8ALL 140 F 

Cet txtxaoïdxnaiAt log-<jn.et, copie con^oimt d'un viiitabtt £ltppzi, tit apptli a 
dt\ien*j\ un ctaAAique po&iidi pai -tout tti amattun d'Amttiad. Dani cettt Aimuta.tJ.on 
tout tbt con&owt à t'oiiginat : bumptit, abtti, couloini, tourniquet . . . tottiit, 
extia-baJJ., Apicial tX bien eût un vixitabtt Titt ! W0\ tangagt macn-ùte. Dti mou, 
dt ttiavait pout l'un dt no 4 piogiammtuii vtdeXtti. 

9HÎGHT "bOOSTERS 120 F 
La xtvanckt dt Tion ! Unt coûtée m^einatt au guidon dt votit noto hyptiiuittntit à 
pioputAion ionique... Un dut/. inpitoyabtt tntie dtux joutuii ou con-ïte t'otdinattux. 
Cta.vi.Vi ou joyitick. 

■ CHALLENGER RFI/ERSI MO F 

Unt vtiiton iupt-x-puj Haute, de ce giand ctaAiigut dtA jiux dt liittxxxn {apptli 
autbi Othello) . L'atgoxiXhnt utiJ-iAe lit den.nieA.tA itchtichtA tn mattitft d'intttti- 
gtnet aiti(icittte. Langage mathint. 



■ STRESS .' MO F 
Echappez au {antbmt qiw. hantt ce weu» manom IcoaaoXa. 
t*ej\t aux. ptiionnti caidiaquti '. Claviti ou joystick. 



A diconitJJXtl Aovntttt- 



En vznte dans les boutiques Spécialisez* ou pan. 
coinzspondancz zn tznvoyant le bon ci-dessous à 
COBRA SÛF 7_5 ,_avenue_monno t_J1 700 CHALQN S/Saône.._ 



NOM 
ADRESSE 



CODE POSTAL V M.LE 

Veuillez me faire parvenir les programmes suivants 



(les prix sont TTC ) . 
Ci-joint mon règlement soit 



Port : 
Total : 
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■ C08RA UO F 
Une vti&ion ultia-iapidt dt ce giand ctaaiqut dti jtux i'aicadt mettant 
Atiptnt dont la queue i'altongt, i'allongt. 
gage .;iacn-ùie. Ctaviei ou joyitick. 

■ LA VILLE INFERNALE UO F 
Au votant de votit botidt, iztiouvez votit chwin dani ctttt ville wnmtntt et in- 
hmpitalitit. GiapkxA<AtA en tioii dijxtniioni. Un jeu où l'on ptut jouet Atut f 
ptuA'.twU tt uè^artf iiUelLujtnct, dibiouiZtaidiM, 
l'humoui ! Cla\jt.ti ou jOijbtick. 

■ P.A.O J 20 F 
Un utUltaix.t tiÏA puitiant c,ui voua penaeXtia dt cteet voa dtAAuii disiecttritn*. i 
l'ia-ian eX dt pto^et dtA poAAibUUtA gn.apki.gutA dt t'Amitiad. Rvut*Mti tn tan- 
gagt nacn-uie. Clavit* ou joyAtuck. 

msuPERCOpy no f 

Un utititaAjit utUtAabtt dani voa pnopitA p>;cgianmtA (ou avtc V.A.O) pout ja^te atA 
copte* d'éctan d^iec^erte^ aui oo^te -tnptùna-fe AmAtxad {quttgut àoU It .node gta- 
pUque). En ptui et togiCLtl tn tangagt machine ntX à uo-tte a'wpoi^^on un SPtWLER 
de taxttt liglabte. qu*. uoui petme^^ta dt cont^utA a voui aetv-ct de £'..td*.na^eui 
pendant l'inpitAAion. Compatibtt impiimanttA Amitiad, GP-100, GP-SOO. 

■ WISTO-QUIZZ lUuLLi-<luJ-zz) \20 F 

Jtu dt connasjiianct tdial poui jouet tn iamittt. Il tit rfeutn-t. avec un qutAtt-onnacit 
baii aui l'hUtoiAt dt Ftartce. Voui pouvez ctéet vot piopitA qutAUonnajJitA : tuitma, 
giogiaphtt, etc.. et pouiquoi paà paiticXpti à unt bouiAt d'ichangt... 

■ FORCE 4 J20 F 

Unt veAAion Auptnbt d'un jtu dt itilexion où, comme dam ItA EchecA ou tt Rtvtia., 
foidinattui ptut donne* Aa me-iute tt et\t un compagnon dt jtu agiiabtt. On ptut 
jouti à deux ou chotAiA un advtiAavit paimi ctux piopoAtA pa\ foid+nateui (d^e- 
itnti niutaux. dt jtu). 

■ GRAPHOLOGIE 150 F 

Le pitmiti toglcitt dt giaphologit aAblttit pat otdi«a^eut. A patï-w dtA eten-^ntA 
dtAciipti-iA d'une iciituit, t'oidinateui tiace un poitxaiX pAychologj-qut du ictte- 
ttui Siiitux tpai AtA iondmtntA tnioiiquti} tt amuAant pai AtA appUcat^ont , 
Giaphologit a été èciit pat un pbyehotogut paiUonné d'anatybt d'éctUute dtpuu, 
ptuA de 20 anb. Logicxtl tXvnl auec un liuitt txplicatii et dtA exmptti. 

■ MISSION PEFECFOR 120 F 

la guette gatactJ.qut . hait tage ! Commandant tt cioiAtui ajmjial dt ta itottt 
Atettojjxt, votit miiAton tAt dt piotigti la ptanltt ZïCRA. Attention '. t'aimada 
Kaigon qui voua attaqut tit compobtt dt 6 baAZA ipatiatt* uttia-modt\ntA iquj.- 
pizi d'icianA piottcttuii léputAi^A tt anti-iadai. . . 
Jtu dt it^lexton pout 1 ou 2 joutuii. 

MHVPERSPACE 4 120 F 

Unt avtntuit ipatio-tempoizltz qui voua conduit dt t'Egypte antique au ?Te*e 

iiiclt tn paAiant pat le Fai-WtAt. . . Un jtu d'avtntuie aux giaph^mu Aupeibti 

où toute votit intettigtnet <U votit aituct voua AeAont ntctAAOJJitA poui ne 

pat vou4 igaitA. dani la quatrième dùntntion ! .. X(|Ji|#- (85/41.36. 16) 



a 6Lu,vte,. . 



COBRA SOFT adapta ac.tazltmz.nt 6zi logiciel* -Au* dis- 
quette poui Izi po6AZ6*zu.*6 de CPC 664 et dz Izcteuti 
poun. CPC 464. 

Lt6 pztéonnz* intziziàzz* doivent nou* contactzi au 
téléphone suivant 16/85 41.36.16 (l'après-midi) ou pan. 
countien. à t'adnzsse kabituellz. 





Michel ARCHAMBAULT 
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Une cassette vierge dans le 
magnéto-cassette ne sert 
pas uniquement à sauver un pro- 
gramme que vous avez écrit, on 
peut aussi enregistrer des valeurs 
(nombres, chaînes) que l'on tient 
à conserver : c'est alors un enre- 
gistrement de fichier. 
C'est un peu moins simple que le 
SAVE " " pour un programme 
Basic, mais ce n'est pas compli- 
qué à partir de l'instant où l'on a 
compris la raison d'être de certai- 
nes fonctions du genre OPENIN, 
CLOSEOUT, etc. 

LES DIRECTIONS 
IN ET OUT 

Le micro-ordinateur pense par 
rapport à lui-même ; le magnéto, 
ce n'est pas dans sa mémoire, il 
fait partie de l'extérieur (même si 
le constructeur l'a mis sous le 
même capot en plastique). Le cla- 
vier, l'écran, une imprimante, un 
lecteur de disquettes sont aussi, 
pour lui, des éléments extérieurs 
(on les appelle aussi des "péri- 
phériques"). 

Quand il envoie sur cassette, 
c'est OUT ; quand il reçoit des 
données de la cassette, c'est du 
IN. D'accord ? 

Ce n'est pas la peine de le spéci- 
fier pour le clavier (toujours du 
IN), ou pour l'écran et une impri- 
mante (toujours du OUT), unique- 
ment pour les périphériques bi- 
directionnels, à savoir magnéto- 
cassette, lecteur-enregistreur de 
disquettes (ou "DRIVE") et 
MODEM. 

La nature de l'ordre Basic le pré- 
vient sur le sens : PRINT ou 
WRITE, c'est du OUT ; INPUT, 
c'est du IN. Encore faut-il lui dire 
le nom du périphérique expédi- 
teur ou récepteur, c'est le 
"canal", #0à #9 désigne # se 



prononce dièse). Quand on ne 
précise pas le canal, c'est le canal 
#0 ; ainsi PRINT #0 = vers 
l'écran, INPUT #0 = entrée 
venant du clavier, le canal zéro 
est donc le canal implicite. 
Le canal # 8, c'est l'imprimante, 
on écrit donc simplement PRINT 
# 8. Le canal cassette, c'est #9. 
Alors là, tout se complique, car 
il faut prévenir l'ordinateur s'il lui 
faut OUVRIR sa mémoire pour 
une sortie ou pour une entrée : 
c'est OPENOUT ou OPENIN. A la 
fin du transfert de données, il faut 
le prévenir que c'est terminé, 
c'est CLOSEOUT ou CLOSEIN. 

UN EXEMPLE SIMPLE 

Un programme vous a fait entrer 
(INPUT) des noms, des nombres ; 
il a calculé des résultats. Vous 
voulez conserver tout cela sur 
bande magnétique. Ce fichier 
s'appellera "MACHIN" (original, 
n'est-ce pas ?). 

400 OPENOUT "MACHIN" 
410 PRINT #9, A$,B$,C$, NB, 

TOTAL, FZ$ 
430 CLOSEOUT 

Le nom du fichier n'est pas obli- 
gatoire, on peut aussi comman- 
der OPENOUT " ". 
A la suite de PRINT #9, on 
retrouve la même écriture que 
PRINT à l'écran ; les virgules sont 
des "séparateurs" de zones de 
données, comme à l'écran, 
comme dans une ligne de DATA, 
comme une suite de paramètres 
après une fonction Basic. 
Qu'y a-t-il sur la bande enregis- 
trée ? Un signal de début fichier, 
le nom du fichier, trois chaînes, 
puis deux nombres, une chaîne, 
et enfin le signal de fin de fichier. 
Il n'y a pas les noms des varia- 



bles enregistrées, seulement 

leurs valeurs. Ce point est très 

important. 

Complétons un peu. Enregistrons 

le contenu d'un tableau DIM 

F(100,5). Insérons la ligne 420 : 

420 FOR I = 1 TO 1 00:FOR J = 
TO 5:PRINT #9, F(I,J): 
NEXT:NEXT 

Une seule ligne pour sauvegarder 

un tableau de 600 nombres ! Pas 

mal... 

Résumons la technique : après le 

OPENOUT " ", on fait PRINT # 9 

sur chaque valeur à enregistrer. 

On ferme par CLOSEOUT. 

RETROUVONS 
NOS VALEURS 

Pour mettre en mémoire vive (en 
RAM) ces valeurs sur bande, il 
suffit d'écrire ces mêmes lignes 
en Basic, mais en remplaçant 
OUT par IN et PRINT #9 par 
INPUT #9. C'est tout ; mais 
attention à trois pièges hélas clas- 
siques : 

— demander un nombre alors 
que c'est une chaîne qui se pré- 
sente ou vice-versa. Ainsi, nous 
avions, dans l'ordre, A$, B$, C$, 
NB, etc. Si nous programmons : 
INPUT #9, A$, B$, C, NB 

il y aura un plantage. Mais, on a 
droit à : 

INPUT #9, NOM$, VILLE$, 
REP$, PRIX, etc. ; 

— on demande d'entrer un nom- 
bre de variables plus grand ou 
plus petit que contient le fichier 
sur bande : plantage ; 

— dans le cas de "variables indi- 
cées" (celles d'un tableau DIM), 
on a oublié d'annoncer ce DIM. 
Exemple : DIM F(100,5) en début 
du programme. Là aussi plan- 
tage. 
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LE CAS DES 
FICHIERS ELASTIQUES 

C'est-à-dire des fichiers dont le 
nombre de valeurs peut varier 
d'un enregistrement à un autre. 
Le cas est fréquent, mais il y a 
deux façons de se tirer d'affaire : 
par la fonction EOF ( = END OF 
FILE) qui signale qu'il a reçu le 
signal de fin de fichier, ou encore 
en prévenant en début de fichier 
du nombre de valeurs qui vont 
suivre. Voyons un exemple avec 
EOF. 

500 OPENIN "TRUC" 
510 IF EOF THEN 550 
520 INPUT #9, AD, NB 
530 POKE AD, NB 
540 GOTO 510 
550 CLOSEIN 

Notez bien que la boucle de char- 
gement 510-540 débute par le 
texte EOF, ce qui évite tout pro- 
blème. 



Second exemple : à l'enregistre- 
ment, nous avions partiellement 
garni un tableau de noms prévu 
pour un maximum de 500, soit 
DIM NOM$(500). En fait, on n'en 
a entré aujourd'hui que 48. Le 
programme les a compté , c'est 
la variable NB = 48. Le fichier a 
été enregistré comme suit : 

800 OPENOUT "REUNION DU 

28/6/86" 
810 PRINT #9, NB 
820 FOR 1 = 1 TO NB 
830 PRINT #9, NOM$(l):NEXT 
840 CLOSEOUT 

Dans le sous-programme de char- 
gement : 

910 INPUT "TITRE", NDF$ 

920 OPENIN NDF$ 

930 INPUT #9, NB 

940 FOR 1 = 1 TO NB 

950 INPUT #9, NOM$(l):NEXT 

960 CLOSEIN 



Et le tour est joué. Facile, non ? 

CONCLUSION 

Ces quelques mots Basic que 
nous espérons avoir démystifiés 
sont d'une importance primor- 
diale : ils permettent d'archiver 
des données entrées ou calculées 
par l'ordinateur, et ce mieux que 
sur papier, car elles peuvent rede- 
venir actives après rechargement 
sans que l'on ait eu à les lire sur 
une feuille ou à les retaper au cla- 
vier. Un micro-ordinateur, c'est 
aussi autre chose qu'une super 
calculatrice programmable... 
Vous avez ainsi tous les éléments 
pour vous confectionner des 
fichiers sur bande à vos mesures. 
Lancez-vous. OPEN ! 



■ ■:;:: : :;;!i!i!:, 
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POUR FAINEANTS 



Michel ARCHAMBAULT 



Peu d'utilisateurs utilisent un 
des trésors de l'AMSTRAD : 
transformer le pavé numérique en 
touches de fonctions. Ce très 
court programme est chargé tout 
de suite après la mise sous ten- 
sion, puis effacé par un NEW 
automatique. Durée six secon- 
des. 

Non seulement onze touches 
sont très utilement redéfinies 
pour écrire d'un seul coup CHR$ 
(,L0CATE, etc.), mais cinq tou- 
ches du clavier normal (peu utili- 
sées) vont écrire des caractères 
très fréquents pour lesquels il fal- 
lait appuyer sur SHIFT. 



Le but unique : augmenter notre 
vitesse de frappe d'une façon 
spectaculaire tout en limitant les 
risques d'erreurs. Comment ? Un 
index qui suit le listing à recopier 
tandis que l'autre main continue 
la frappe, parce que l'on n'a plus 
à faire SHIFT ! 

Résumons. Les touches du pavé 
numérique écrivent des fonctions 
ultra-fréquentes, quelques tou- 
ches du clavier principal écrivent 
d'autres caractères. Tout reste en 
mémoire, même après un NEW. 

LE PAVE 

DES FONCTIONS 

Prenons des touches du pavé de 
haut en bas et de gauche à droite. 
7 = CLS + Enter incorporé 



8 = FOR 1 = 1 TO ( + un espace) 

9 = EDIT ( + un espace) 

4 = caractères noirs sur fond gris 

+ Enter 

5 = caractères jaunes sur fond 

bleu + Enter 

6 = KEY 134 (libre) 

1 =LOCATE (+ un espace) 

2 = CHR$( 

3 = LIST ( + un espace) 
= PRINT (+ un espace) 

. =SPEED WRITE 1:SAVE" 



□ 



□ 



DD 
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LES TOUCHES 
MODIFIEES 

Leur rôle est d'obtenir des carac- 
tères pour lesquels il fallait faire 
SHIFT. 
TAB = signe égal 



On a vite fait de connaître par 
cœur ces seize nouvelles tou- 
ches, tout simplement parce 
qu'on les utilise constamment. 

L'UTILISATION 

Ce programme sera enregistré au 
début d'une cassette vierge. 
Sitôt la mise sous tension, on le 
lance par la méthode habituelle 
(CTRL + petit ENTER). 
Le plan des nouvelles touches du 
clavier apparaît à l'écran. En pres- 
sant la touche N (ou n), il v a CLS 

10 'TOUCHES DE FONCTIONS + SHIFT DIRECT 
20 'AKSTRAD « H.Achaibault - 1 ^85 
30 ■' -- Non modifiées par NEW — 
î 00 KEY 123,"PR!NT ':' 
110 KEY 129."L0CATE ";' i 
12C KEY !30."CHR>i" ;' 2 



140 KEY :32.' : INK 0.13: 1 NK i ,C"+CHR*l 13) . ' 4 
150 KEY Ï33,"ÎNK O.llINK 1.24, BORDER 1"+CHR$U3! 

C 

160 KEY 134. "KEY 134": ' 6 
HO KEY !35."CLS"+CHR<il2):' 7 
180 KEY 136, "FOR 1=1 TO ":" 6 
190 KEY 137. "EDÎT ':' 9 
200 KEY 1S8."SPEED WRITE i:SAVE "+CHR* > 34") ; 
210 KEY DEF 17,0,40;' ! 
220 KEY DEF 19,0,41 : ! 
230 KEY DEF 22-0.36! ' » 
240 KEY DEF 26.0,34; " 
250 KEY DEF 63,0.61:' = 
400 TABLEAU 

410 GLS'ORIGIN , : PEN 3 

420 LCCATE 10,2:PR!NT "PAVE DES TOUCHES-CLEFS" 
430 PEN 1 

440 LOCATE 5. 6: PRINT "CLS" " : ;PRINT TABi 16! : "FOR 
1 T0"::PRINT TAB' 33) : "EDIT" 
450 LOCATE 2,9:PRIHT "No i r/Blanc" " ; ;PRÏNT TABïlt 
"Jaune/Bleu" 1 ; :PRINT TAB(32!"1 ibre" 
460 LOCATE 4,12: PRINT "LOCATE" : :PRI NT TABi 193 ," 
R<!":;PRINT TABi33):"LIST' : 

4Ï0 LOCATE 4,i5; PRINT "PRINT" : SPC i 3 ) : "SPEED ÏRI1 
USAVE " 
430 LOCATE 12,13; PRINT "TAB est le signe =" 
490 LOCATE 1C,1?:PRIKT "Crochets = Parenthèses" 
500 LOCATE 6,20 PRINT "A coinerciâl = Guiiieiiit 

510 LOCATE 14-21 :FRINT "anti-slash = i" 

520 LOCATE 10,23 PRINT "TAPE2 N POUR NEW + CLS" 

530 PLOT 5, 340; DRAW? 630,0,2 

540 DRAiffi 0,-190 

550 DRAlsR -630,0:DRAWR 0,190 

600 ÏHILE S$=' ! ":R$=INKEYJ:WEND 

610 IF U"?ER<ïR5;="N" THEN CLS:NEW 

620 END 

s30 ' FIN DE LISTING 



et NEW. Vous pouvez alors pro- 
grammer ou charger un pro- 
gramme à modifier. 
La touche libre "6" du pavé 
numérique affiche KEY 134. A 
vous d'ajouter une virgule suivie 
de votre fonction entre guille- 
mets, puis de presser Enter. La 
touche 6 est alors définie. Atten- 
tion, la fonction KEY n'avale pas 
tout, elle peut refuser votre fonc- 
tion ; l'écran affiche alors "Impro- 
per argument" après la pression 
d'Enter. Pour entrer certains 
signes, utilisez leurs codes ASCII, 
exemple CHR$(34) pour le guil- 
lemet ; un exemple à la ligne 200. 
Si vous êtes sûr de votre 
mémoire, ne tapez pas les lignes 
400 à 550. 

NOTE : Il y a risque d'interféren- 
ces si on redéfinit certaines tou- 
ches en AZERTY accentué. Ce 
programme ne sert qu'à la pro- 
grammation. 



Avis à tous les chasseurs de 
flag-ships, de gloutons et de 
space-invaders : Montez sur la 
plus haute marche du podium en 
nous envoyant les high-scores 
réalisés sur vos jeux d'arcade pré- 
férés. Votre nom figurera alors 
dans le tableau d'honneur de 
CPC. 

Il suffit pour cela de nous envoyer 
le nom du programme, votre 
nom, votre score et une photo- 
graphie d'écran en noir et blanc 
ou en couleur permettant d'au- 
thentifier votre performance. 
Mais attention, tout ceci n'est 
valable que pour les programmes 
pour lesquels on ne peut pas 
régler les paramètres de jeu ni 
changer de niveau. Nous avons 
un jury constitué de jeunes Ams- 
tradmaniaques qui se chargeront 
de détecter et d'éliminer toute 
tentative de tricherie. Alors, tous 
à vos joysticks et bonne chance ! 






JEU 


SCORE 


AUTEUR 




HARRIER ATTACK 


57140 


Eric VIEL 




ELECTRO FREDDY 


1210 


Sébastien LEJEUNE 


î = 


ROLAND IN THE 
CAVES 


865144 


Stéphane CLOIREC 




HUNCHBACK 


101700 


Stéphane PRUNIERE 




GALAXIA 


3720 


Yannick BOUREE 


OH 


FRUITEY FRANCK 
(slow) 


11320 


Eric FAUREZ 


TE 


MANIC MINER 


15784 


Stéphane CLOIREC 




SPACE HAWKS 


31500 


Maxime GAUDIN 




SPANNERMAN 


27100 


Marie-Christine VIEL 


i c 


3D-INVADERS 


2189 


Stéphane PRUNIERE 




FIRE-ANT 


14900 


Yannick TERTRE 




DEFEND OR DIE 


17725 


Sandrine BONOMO 




LASER WARP 


15360 


Nicolas CLOAREC 




SURVIVOR 


57500 


Claude BLANCHARD 




ROLAND GOES 


101L15p 


Philippe ANGEARD 




DIGGING 








PINBALL WIZARD 


7970 


Matthieu LEJEUNE 




(vitesse 5) 








ALIEN BREAK-IN 


21700 


Kevin PI ERRAT 
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20, rue de Montreuil 94300 VINCENNES - Tél. : (1) 328.22.06 

OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h et de 15 h à 19 h, LE SAMEDI de 10 h 30 à 19 h 

REVENDEUR OFFICIEL AMSTRAD FRANCE 




CPC 664 

□ avec moniteur couleur 

D avec moniteur monochrome . 



.5990 F 
.4490 F 



m m m 






\ 



v 



8 bits interface printer 

D grâce à cet interface vous pouvez enfin faire du 
graphisme sur toute imprimante 299 F 




Rallonge alimentation + vidéo 

D ne soyez plus collé à l'écran, rallonge 130 F 

D Adaptateur péritel 390 F 



K> 




Synthétiseur vocal AMSTRAD 

Enfin votre AMSTRAD peut s'exprimer! Anglais d'ori- 
gine il gardera son accent mais, grâce à un programme 
basic, vous dira "bonjour", "gagné" ou vous apprendra 
l'anglais ou l'allemand. 
D synthétiseur vocal 495 f 

Câble imprimante AMSTRAD 

Vous permet de connecter votre AMSTRAD à n'im- 
porte quelle imprimante au standard "centronic" 
D câble imprimante 150 F 



Carte E/S 

Vous permet de commander moteur, relais, lampe. 

sonnerie, projecteur 

D carte 8 E/S 395 F 



Carte E/A AMSTRAD 
Peur transformer votre AMSTRAD en centrale de me- 
sures. Possibilité de brancher plusieurs cartes 
D cane 8 E/A. 395 F 

G support moniteur 198 F 



M 



û Rallonge bus souple 185 F 

G hausse pour moniteur et U.C 150 F 



Rallonge Joystick 

"Éclatez" vous sans rien arracher ! 

G rallonge joystick 1,20 m 120 F 



m 



Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro-ordinateurs vous évitera bien des soucis. 
Entrée DIN ou Jack. Niveau réglable. Témoin 
sonore et lumineux. Alimentation intégrée 
D magnétophone 495 F 




CPC 464 

D avec moniteur couleur 4490 F 

D avec moniteur monochrome 2990 F 




LOGICIELS CASSETTE 



!•••••< 



B ghost buster 140 F 

Bandroïd 120F 

SJbattle for modway (notice fr.| 145 F 

B kari's treasure hunt 90 F 

Bléric the viking 175 F 

Bfighterpilot 110 F 

«Tflighl path 737 100 F 

»5 strip poker 1 20 F 

S pyjamarama 1 00 F 

Q galaxia 95 F 

H atom smasher 100 F 

H manie miner 100 F 

Bjet set willy 100 F 

Bdarkstar 100 F 

D 3 D monster 1 00 F 

H master chess 1 00 F 

K code name mat 100F 

Slfootball manager 110 F 

S house of usher 100 F 

5 hunter killer 100 F 

Qjack and the beanstalk 115F 

□ ring of darkness 155 F 

n spécial opérations 1 00 F 

B sorcery 140 F 

Msurvivor 100 F 

B star commando 100 F 

Oamlettres 149 F 

D animal, végétal, minerai 100 F 

Bblagger 100F 

Bbridge-it 100 F 

43 code name mat 100 F 

D colorie 95 F 

D classic adventure 100 F 

H défend or die 120 F 

D devpac (ass, dessas, mon} 290 F 

D easy amscalc 1 55 F 

HER-BERT 100 F 

H harrier attack 100 F 

Çj fred électronicien 100 F 

B fruity frank 1 00 F 

B gestion fichier (éd. CORE) 150 F 

□ golf 100 F 

□ initiât, basic vol. 1 (français) 1 55 F 

D initiât, basic vol. 2 (anglais) 155F 

~ hisoft pascal 390 F 

house of usher 1 00 F 

Bhunchback 100 F 

6 haunted edges 100 F 

□ le géographe 100 F 

§D envahisseurs de l'au-delà 1 00 F 

D lettres magiques 100F 

D wongs loopy laundry 1 00 F 

ttmultigestion (éd. CORE) 195 F 

D nombres magiques 100 F 

B oh mummy 100F 

D polichinelle 100 F 

D roland ahoy 100 F 



H roland digging , . 1 00 F 

â roland lasceaux 1 00 F 

fQ roland oubliettes 100 F 

□ roland on the run 100 F 

B roland intime 100 F 

Rstress 120 F 

□ technician ted 1 00 F 

Dworldwar3 95 F 

Bmonopolic 115 F 

D bidget fam. (éd. SPRITES) 120 F 

Dsplat 100 F 

D carnet adresse (éd. SPRITES) 1 20 F 

B meurtre grande vitesse 1 80 F 

D colorie 105 F 

PTJ série noire 120 F 

D fruit machine 100 F 

D détective 100 F 

□ C.P. graph 150 F 

K sultans maze 100 F 

D gestion entreprise 245 F 

D gestion stock 245 F 

D facturation 245 F 

H musicore 1 95 F 

Dkong 120 F 

El thomson décathlon 120F 

Brallyll 180F 

S kikekankoï 160 F 

D easy graph 175 F 

D easy cale 175 F 

D easy bank 175 F 

D easy file 175 F 

S le millionnaire 140 F 

fi mission delta 1 20 F 

D micro-sapiens 140 F 

n macadam bumper 1 60 F 

D cobra 120 F 

Bpinball 120 F 

ET combat lynx 120 F 

BOAO 120 F 

D knight booster 120F 

D la ville infernale 120 F 

DMA base 165F 

D initial, ass. Z80 149 F 

D min file 149 F 



§ hisoft pascal 390 F D salut l'artiste 1 85 F 
house of usher 1 00 F D mission détecter 1 20 F 

H the hobbit (livre fr.) 220 F 

B starstrike 140 F 

B le bagne de népharia 140 F 

B knight lore 150 F 

U 3 D fight 140 F 

tu alien 8 140 F 

□ mission detector 1 20 F 

B survivor 105 F 

(S gilligan's gold 100 F 

S star commando 100 F 

□ K7 de réglage magnéto 130 F 

LOGICIELS SUR DISQUETTES 

D file (français) 345 F D cale (français) 345 F 

D bank (français) 345 F D graph (français) 345 F 



9 électro freddy 149 F 

S roland in time 149 F 

D roland on the sun 149 F 

M amsgolf 149 F 

B hunchback 149 F 

SI roland on the ropes 149 F 

S roland in the caves 149 F 

G harrier attack 149 F 

S roland goes digging 149 F 

B code name mat 149 F 

(il puncky 149 F 

D master chess 149 F 

B spannerman 149 F 



flj snooker 149 F 

D roland ahoy 149 F 

H hunter killer 149 F 

UTILITAIRES 

G entrepreneur (anglais) 345 F 

□ décision maker 345 F 

D masterfile 345 F 

□ project planner 345 F 

D microscript 580 F 

D microspread 580 F 

D DDI ■ firmware 245 F 

Q micropen 580 F 

D starwatcher 288 F 



LIVRES ET REVUES 



D AMSTRAD CPC 464 explored 100 F 

□ super-jeux Amstrad 1 20 F 

D programmé en ass. sur Amstrad 98F 

a AMSTRAD ouvre-toi 99 F 

Q programmes basic CPC 464 129F 

D basic au bout des doigts 149 F 

m trucs et astuces pour CPC 464 149 F 



D 1 02 prog. pour AMSTRAD 120 F 

D AMSTRAD 56 programmes 78 F 

□ jeux d'actions 49 F 

SI la bible du CPC464 249 F 

D méthode pratique (P.S.I.) 100 F 

D AMSTRAD en famille 120 F 

REVUES 
D AMSTRAD user (avril-mai-juin) le n° 12F 



Possibilités de crédit partiel ou total 






Q 1er lecteur de disquettes 2490 F 

D 2ème lecteur de disquettes 1990 F 



D imprimante AMSTRAD 2490 F 




D Joystick AMSTRAD 149 F 



Joystick TIRVITT 

Le "MUST" en matière de joystick! 8 directions, 
contact par micro-contact, robuste, élégant, précis, 
il ne vous décevra pas, garanti 1 an, compatible 
standard ATARI et MSX 
D Joystick TIRVITT 140 F 




Mannesmann MT 80S 
L'imprimante "top niveau" en informatique fa- 
miliale 100 caractères par seconde. Papier 
normal ou informatique. Entraînement par 
friction ou traction. Si vous recherchez une 
qualité "courrier", la MT 80S vous doonera 
plus que des satisfactions tant pour le texte 
que pour le graphisme. 
D Mannesmann MT 80S 3950 F 



60 F 



□ disquettes vierges 3". 



Cassettes vierges C20 

D les 5 45 F 

D les 10 80 F 





boîtier rangement disquettes 

D à l'unité 100 F 

D par 3 275 F 

D boitier rangement disquettes 255 F 

graphiscoP: NOUVEAU 

I Grâce à cette table graphique vous pourrez ■ 
dessiner, copier... de véritables chefs d'œuvre. I 
DGRAPHISCOP 1490F I 



COMMENT COMMANDER : Cocher le(s) article(s) désiréls) ou faites-en une liste sur une feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F, 60 F pour achat supérieur à 1000 F). 

NOM PRÉNOM ORDINATEUR DCPC464 couleur D CPC464 monochrome DCPC664 couleur D CPC464 monochrome 

VILLE 



ADRESSE . 



TEL.. 



CODE POSTAL . 



Mode de paiement : D chèque / D mandat / D contre-remboursement (prévoir 20 F de frais) - envoyer le tout à : ORDIVIDUEL. 20, rue de Montreuil 94300 VINC ENNES. 

^ réseau l l«l:l'lt^E! 



BANC □ ■ ESSAI 






"AMELIE MINUIT" 

En français 

(ERE INFORMATIQUE) 



Amélie Minuit..., ça vous fait pen- 
ser à quoi ? Ben, non ! vous vous 
trompez, si Amélie traîne dehors 
à minuit, c'est pour la bonne 
cause. Seule, elle part à la recher- 
che d'un dossier "TOP SECRET" 
dans les dédales de couloirs et 
bureaux d'une tour de 29 étages. 
Il lui faudra déjouer les pires piè- 
ges qui augmentent en fonction 
du niveau de difficulté choisi au 
départ, parmi les cinq proposés. 
Pendant la dizaine de minutes 
que dure le chargement de la cas- 
sette (à quand la version dis- 
quette ?), vous aurez le plaisir de 
faire connaissance avec la jolie 
Amélie apparaissant sur la page 
de présentation (petit chef d'oeu- 
vre). Vous aurez aussi largement 
le temps de lire la notice, suc- 
cincte mais suffisante, qui 
accompagne la cassette. Ce 
qu'elle ne mentionne pas, cette 
notice, mais que le programme 
vous apprendra, c'est que le 
temps est limité. Amélie ne dis- 
posera que d'une petite heure 
pour accomplir sa mission, voilà 
qui augmente bigrement l'intérêt 
du jeu ! 

Il faut la voir se déplacer, la char- 
mante Amélie, prendre l'ascen- 
seur, marcher dans les couloirs, 
explorer les bureaux, le tout 



représenté en graphisme 3D très 
coloré et du plus bel effet. 
Comme Amélie est myope, sa 
première tâche sera de retrouver, 
dans cette tour qui deviendra vite 
infernale, ses lunettes car elle en 
aura besoin pour identifier les 
dossiers. 

Un ascenseur diabolique (par ins- 
tants), des lumières qui s'étei- 
gnent quand il ne faut pas, tout 
cela ne facilite pas sa tâche ! 
Les commandes sont réduites, il 
est donc facile de s'en souvenir. 
Attention toutefois, pour prendre 
un objet ou ouvrir une porte, il 
faut être bien en face. Avec un 
graphisme très réussi (rien à voir 
avec des tracés "fil de fer"), ce 
jeu présente beaucoup d'intérêts, 
notamment celui de se dérouler 
en un temps limité. 
Amélie Minuit : une réalisation 
très soignée que l'on se doit de 
posséder dans sa ludothèque. 




"MEURTRE A GRANDE 
VITESSE" 
En français 
(COBRA SOFT) 

Un logiciel très original, par sa 
conception, annoncé à grand ren- 
fort de publicité et fort bien pré- 
senté, dans un coffret du type 
"cassette vidéo" incluant un 
sachet d'indices et la notice. 
L'auteur avoue avoir eu depuis 
longtemps l'envie d'écrire un logi- 
ciel ayant pour décor le TGV. Le 



thème ? Un passager, sénateur 
de son état, a été assassiné dans 
le train ; à vous de découvrir l'au- 
teur du meurtre. Vous avez donc 
à mener une enquête policière 
dans la plus pure tradition. Des 
indices matériels vous sont four- 
nis avec la cassette ; ce sont 
ceux que vous trouverez lors de 
vos explorations. Fouille des 
bagages et des voitures, des toi- 
lettes, interrogatoire en règle des 
passagers ; tout y est ! On vous 
permet même d'utiliser le télé- 
phone, et vous irez de surprise en 
surprise, mais... chut ! 
Le graphisme est très sommaire 
et n'utilise pas les ressources de 
l'AMSTRAD, mais là n'est pas 
l'intérêt du jeu. Votre position est 
matérialisée par une petite croix 
clignotante et, hélas, vous ne 
pouvez pas explorer du regard 
l'ensemble du wagon ; vous ne 
voyez pas plus loin que le bout de 
vos pieds. Il faut donc faire de 
multiples sollicitations du clavier 
pour explorer toute la rame TGV ; 
c'est un peu lassant. 
Ceci étant dit, les aspects néga- 
tifs sont assez réduits, et vous 
serez vite pris par l'énigme, pleine 
de rebondissements et faisant 
appel à votre esprit de déduction. 
Un petit calepin sera nécessaire 
pour tout noter. 

Nous ne saurions que trop encou- 
rager la création de logiciels ori- 
ginaux, sortant des sentiers bat- 
tus, et celui-ci en fait partie. Si 
vous êtes lassés des sempiternels 
jeux d'aventures (où il faut pas- 
ser des heures à découvrir le 
vocabulaire, à cause d'un analy- 
seur syntaxique antédiluvien) et 
que les jeux d'arcade ne vous 
envoient plus au septième ciel, 
nous vous encourageons à 
acquérir ce logiciel car il vous pro- 
curera de nombreuses heures de 
plaisir. Bonne enquête. 
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MASTER CHESS 
(MIKRO-GEN) en anglais 

Jeu d'échecs. Un des meilleurs. 
Dix niveaux de zéro à neuf. Le 
niveau zéro est déjà un adversaire 
coriace aux réponses rapides : 
cinq secondes ! Mais deux jours 
au niveau 9... L'ordinateur affiche 
le nombre de possibilités qu'il va 
étudier ; à côté apparaît le 
décompte. Si l'on s'impatiente 
aux niveaux élevés, on peut lui 
faire précipiter ses élucubrations 
en appuyant sur M. Deux pendu- 
lettes, les options habituelles plus 
une inédite : on peut demander 
conseil à l'ordinateur ! Et il n'est 
pas farceur... 

Graphisme = 3 — animation = 1 
son = — intérêt = 4. 

* * * 




"MACADAM BUMPER" 

En français 

(ERE INFORMATIQUE) 

Jouer au flipper sur AMSTRAD, 
c'est super, et en plus, pas 
besoin d'avoir de la monnaie, ERE 
Informatique vous consent un 
forfait lors de l'achat de la cas- 
sette ! 

Macadam Bumper, drôle de 
nom : le rocker de la page de pré- 
sentation donne le ton. Préparez 
la monnaie (ça, c'est pour la 
frime) et en avant ! Vous avez le 
choix entre jouer et créer. On 
commence par une petite partie, 
pour voir ? Des couleurs peu heu- 
reuses, mais un réalisme parfait. 



Il y a même des touches pour le 
secouer à droite ou à gauche. Ne 
le "bourrez" pas trop, il pourrait 
faire "TILT", car tout a été prévu. 
Lorsque l'entraînement sera tel 
que les parties gratuites n'auront 
plus aucun secret pour vous, 
vous pourrez accéder à la modi- 
fication des paramètres : inclinai- 
son, sensibilité du "TILT", valeur 
des points, vitesse de la balle, 
etc. Et si la lassitude vous guette, 
prenez votre patience à deux 
mains et redessinez la "babasse" 
de votre crû, élément par élé- 
ment, en choisissant couleurs, 
bonus, pièges, positions des rails 
et des chicanes. C'est tentant, 
mais c'est un gros travail, aussi 
vous aurez le droit de le sauve- 
garder sur cassette. Les flippers 
les plus fous pourront sortir de 
votre imagination sans limite. 
Encourageant, la créativité, agré- 
menté d'effets sonores et "lumi- 
neux" soignés, Macadam Bum- 
per est tout à fait comparable aux 
flippers vidéo des salles de jeux. 
Alors, on l'achète ? 
Graphisme = 4, animation = 5, 
son = 3, intérêt = 4 à 5. 




RALLY II 

(LORICIELS) en français 

Course de voitures en "trois 
dimensions". On a notre voiture 
en premier plan, et l'on doit 
dépasser les autres concurrents. 
On voit la route et les virages 
venir sur soi. Plusieurs étapes, 
campagne ensoleillée, sur un 
pont, littoral, sur la neige, de nuit 
et dans le désert. Un accident 
n'est pas éliminatoire, mais péna- 
lise en temps, d'où risque de dis- 
qualification. Vous avez la possi- 
bilité de rendre le tracé plus diffi- 
cile ou plus facile (jusqu'à suppri- 
mer les virages !). Un petit chef- 
d'œuvre. 

Graphisme = 4 — animation = 5 
son = 3 — intérêt = 5. 



UIM EDITEUR 




ERE INFORMATIQUE 

Créée en juin 1983, ERE 
INFORMATIQUE s'impose 
aujourd'hui comme un des 
"grands" parmi les "petites" 
sociétés de création et d'édition 
de logiciels pour micro-oridina- 
teurs familiaux. 

A l'origine, un créateur de logi- 
ciel, Emmanuel VIAU, confronté 
à l'absence de structures propres 
à accueillir ses projets. Consta- 
tant le parc grandissant des 
machines en France, la forte 
demande de logiciels originaux en 
français et la carence de l'édition 
face à un nombre croissant d'au- 



teurs, il lance en juin 1983 une 
société de création et d'édition de 
logiciels grand public. 
Les premiers contacs se font par 
l'intermédiaire des importateurs 
de micro-ordinateurs à qui les 
auteurs proposaient leurs réalisa- 
tions. 

Juin 1983, ERE INFORMATIQUE 
sélectionne 6 programmes. 
Noël 1 983, la société propose 1 2 
programmes originaux. 
Noël 1984, 41 programmes fran- 
çais sur cassettes sont édités, 
provenant de 24 auteurs indé- 
pendants ; ils sont adaptés à 5 
ordinateurs : Spectrum, ZX81, 
Laser 200/310, ATMOS/ORIC, 
M05. 
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Riccardo FADANELLI 



Emmanuel VIAU 



Serge ANDOLFATO 



Philippe ULRICH 




Cécile 
PEYRONNET 



Hélène CHOPIN 
DE JANVRY 



Est prévue pour janvier 1985, la 
sortie de 5 nouveaux produits. 
L'expansion d'ERE INFORMATI- 
QUE s'est appuyée sur des critè- 
res : 

— de qualité : fini du graphisme, 
de la réalisation technique, 
rigueur intellectuelle dans l'élabo- 
ration des projets ; 

— d'originalité : parallèlement 
aux logiciels traditionnels (jeux 
d'arcade, de stratégie ou d'aven- 
ture), diffusion de programmes 
plus sophistiqués : 

• simulateur de vol (Mission 
Delta), 

• jeux d'entreprise (Millionnaire, 
Manager), 

• utilitaires (Master Paint, 3D 
Mover). 

Des initiatives guidées par un 
souci de désenclavement des 



compétences visant à offrir aux 
utilisateurs un produit optimal 

— avec Jeux et Stratégie, Blue 
Moon, Objectif Elysée, Don 
Juans et Dragueurs, 

— avec Science et Vie Micro, 
Ordidactic. 

ERE INFORMATIQUE s'efforce, 
d'autre part, de préparer l'avenir, 
par la mise en place d'une politi- 
que d'auteurs. 

Demain, la Fance peut être le 
vivier de la création logicielle. 
Encore faut-il offrir aux futurs 
concepteurs les moyens de 
s'épanouir. 

Une mission que la société 
entend accomplir dès maintenant 
avec ses propres auteurs, de la 
manière suivante : 

— protéger la qualité d'auteur : 
sélection rigoureuse des logiciels 



à éditer, privilégiant l'innovation 
et la création personnelle ; 

— offrir aux auteurs les condi- 
tions matérielles et intellectuelles 
propres à l'optimisation de leur 
créativité : aide artistique et tech- 
nique durant la phase de réalisa- 
tion, organisation de rencontres 
entre auteurs, mise en place 
d'équipes aux qualités complé- 
mentaires ; 

— redonner aux auteurs leur 
juste place : engloutis dans 
l'anonymat de l'univers du logi- 
ciel, il n'en demeure pas moins 
que leurs idées et leurs réalisa- 
tions constituent la clé de voûte 
de l'édifice informatique. 
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• INITIATION 
A L'ASSEMBLEUR 



Cm? 



Denis BOURQUIIM 



A partir de ce numéro, nous 
allons commencer une série 
d'articles d'initiation à l'assem- 
bleur. Bien que ce sujet ait déjà 
été abondamment traité dans 
d'autres revues, nous avons 
pensé qu'il était nécessaire qu'il 
figure dans la revue de l'AMS- 
TRAD. Le microprocesseur du 
CPC étant un Z80 de Zilog, nous 
traiterons donc plus particulière- 
ment de l'assembleur Z80. 

Dans ce premier article, nous ne 
ferons pas d'assembleur, mais 
nous essayerons d'introduire un 
certain nombre de notions indis- 
pensables à la bonne compréhen- 
sion des articles suivants. La pro- 
grammation en assembleur 
nécessite de posséder quelques 
connaissances (matériel et logi- 
ciel) que nous allons passer en 
revue. 

L'AMSTRAD est construit autour 
du microprocesseur Z80 de 
ZILOG, ce microprocesseur est 
dit "8 bits" car il possède un bus 
de données 8 bits. Nous allons 
donner quelques explications 
pour les débutants. Le micropro- 
cesseur dialogue avec les circuits 
qui l'entourent au moyen de trois 
bus (un bus étant une voie de dia- 
logue à plusieurs liaisons), un bus 
de données de 8 bits (8 liaisons), 
un bus d'adresse sur 1 6 bits ( 1 6 
liaisons) et un bus de commande. 
Le rôle du bus d'adresse est de 
fournir l'adresse du périphérique 
avec lequel le microprocesseur 
veut dialoguer. Cette commande 
correspond à la combinaison des 
16 liaisons d'adresse. Le bus de 
commande permet au micropro- 
cesseur d'indiquer le sens du dia- 



logue (lecture ou écriture), le type 
de périphérique adressé 
(mémoire, entrée-sortie), d'indi- 
quer son état aux périphériques 
ou de recevoir des acquittements 
des périphériques. 
Le plus important des circuits 
périphériques du microproces- 
seur sera la mémoire. Sans elle, 
il ne peut rien faire, c'est dans 
cette mémoire que seront stoc- 
kés les programmes et les don- 
nées. Elles est architecturée en 
"cases" de 8 bits appelées 
"octets". Le Z80 ayant un bus 
d'adresse de 1 6 bits, ils ne pourra 
donc adresser instantanément 
qu'une case mémoire choisie 
parmi 2116, soit 65536 cases. 
Dans le Z80, comme dans un cer- 
tain nombre d'autres micropro- 
cesseurs, nous distinguons, en 
plus de la mémoire, un autre 
espace adressable : celui des 
poids faibles du bus d'adresse) ; 
il est donc de 218, soit 256 
cases, ces cases sont plus cou- 
ramment appelées ports. Par 
exemple, la sortie imprimante du 
CPC est dans cet espace, de 
même que le générateur de sons, 
le contrôleur d'écran, le clavier, 
le contrôleur de disque. Mais 
vous aurez remarqué, dans votre 
manuel du CPC, que les adresses 
de l'espace entrée-sortie ne sont 
pas données sur 8 bits mais sur 
16 (utilisation en Basic de l'ins- 
truction INP pour lire le contenu 
d'un port et de l'instruction OUT 
pour écrire dans un port). En 
effet, le décodage des adresses 
des entrées-sorties du CPC utilise 
une des particularités du Z80 : en 
mode d'adressage indirect des 
entrées-sorties par le registre C, 
le microprocesseur met sur les 
bits de poids forts du bus adresse 
le contenu du registre B, mais il 
est peut-être prématuré de parler 
de cette particularité ; aussi, nous 



y reviendrons quand nous analy- 
serons les entrées-sorties en 
assembleur. 

La mémoire du CPC est de deux 
types : de la ROM qui est une 
mémoire accessible uniquement 
en lecture et qui contient un pro- 
gramme figé par le constructeur. 
C'est dans cette ROM que nous 
trouvons l'interpréteur Basic du 
CPC. Elle est subdivisée en deux 
sections de 16 kilo-octets cha- 
cune (1 kilo-octet = 1024 octets), 
la première est implantée à 
l'adresse et va jusqu'à l'adresse 
3FFFH (les adresses sont don- 
nées ici en hexadécimal à 1610* 

15 + 1611 «15 + 1612*15 + 16 
3*3= 16383). La seconde va de 
l'adresse C000H à l'adresse 
FFFFH. Le deuxième type de 
mémoire du CPC est la RAM. 
Cette mémoire est accessible en 
écriture et en lecture, et est dis- 
ponible pour l'utilisateur qui y 
logera ses programmes et les 
données de son application. Elle 
s'adresse sur 16 bits et fait 64 
kilo-octets (65536 cases). Si 
nous faisons le compte de la 
mémoire du CPC, nous trouvons 
96 kilo-octets ; il y a un truc ! 
Effectivement, le microproces- 
seur ne peut adresser avec ses 

16 bits d'adresse que 65536 
octets, mais si nous utilisons un 
artifice distinguant différentes 
zones de 65536 octets, nous 
augmentons l'espace mémoire 
adressable. Cet artifice peut 
consister, par exemple, en écri- 
ture dans un port d'entrée-sortie 
d'une valeur correspondant à une 
des zones mémoires désirées, 
nous avons alors paginé ou seg- 
menté la mémoire. Il suffit donc 
de préciser, avant d'y accéder, 
quel est le type de mémoire 
désiré. Le CPC procède par l'écri- 
ture dans un port, mais nous 
reparlerons de cette particularité 
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plus tard. 

Lorsque vous travaillez en Basic, 
vous n'êtes pas directement maî- 
tre de la mémoire, l'interpréteur 
la gère à votre place. Vous n'y 
accédez directement que par les 
instructions POKE et PEEK. Rap- 
pelons que l'instruction PEEK 
(AD) retourne le contenu de la 
case mémoire d'adresse AD, et 
POKE AD,VAL écrit la valeur VAL 
dans la case d'adresse AD. En 
assembleur, c'est vous qui gére- 
rez votre mémoire. 
Nous allons arrêter là les consi- 
dérations sur la mémoire, et nous 
allons nous intéresser d'un peu 
plus près au microprocesseur. 
Regardons l'architecture générale 
d'un micro. Cette architecture 
simplifiée est donnée par la 
figure 1 . 

Nous trouvons, comme consti- 
tuants principaux : 

— Une unité arithmétique et logi- 
que ALU qui effectue les différen- 
tes opérations arithmétiques et 
logiques entre deux opérandes 
présentés sur ses entrées. Le plus 
souvent, l'un des opérandes est 
l'accumulateur ; cet accumula- 
teur est un registre interne au 
microprocesseur (c'est une 
mémoire interne au microproces- 
seur). Le registre A, dans le Z80, 
a cette vocation. A cet accumu- 
lateur nous associerons le regis- 
tre des drapeaux qui indique la 
manière dont s'est effectuée une 
opération arithmétique ou logi- 
que. Nous analyserons dans les 
prochains articles le contenu de 
ce registre des drapeaux. 

— Des registres de données 8 
bits. Ces registres sont utilisés 
comme mémoire temporaire des 
données dans les programmes. Il 
est toujours intéressant qu'un 
microprocesseur en possède plu- 
sieurs car le registre offre comme 
avantage, par rapport à la 
mémoire, d'être d'un accès plus 
rapide puisqu'interne au micro- 
processeur. Le Z80 possède deux 
banques de 6 registres. Ces 
registres sont repérés par une let- 
tre et sont B, C, D, E , H et L pour 



la première banque, et B', C, D', 
E', H' et L' pour la deuxième ban- 
que. Une seule de ces banques et 
accessible à un instant donné, le 
passage d'une banque à l'autre 
s'effectuant par une seule ins- 
truction. Nous remarquons que le 
registre A correspond à la pre- 
mière banque et que son homo- 
logue, dans la deuxième banque, 
est le registre A'. Notons tout de 
suite que ces registres de 8 bits 
peuvent être regroupés deux par 
deux pour être utilisés en regis- 
tres 1 6 bits : BC, DE, HL, ils peu- 
vent servir de registres d'adresse. 

— Des registres d'adresse 16 
bits. Ce sont les registres IX et IY 
qui servent d'index pour l'adres- 
sage de zones mémoires. Nous 
reparlerons dans un prochain 
numéro des différents types 
d'adressages. Le registre SP est 
le pointeur de pile. La pile, mais 
qu'est-ce que c'est ? Lorsque 
vous avez programmé en Basic, 
vous avez probablement utilisé 
des sous-programmes que vous 
avez appelés par GOSUB. A la fin 
du sous-programme vous aviez 
l'instruction RETURN. Oui, mais 
return où ? L'adresse de retour, 
l'interpréteur se l'était rangée 
dans un coin de la mémoire : la 
pile. La pile et une zone mémoire 
que vous réservez au micropro- 
cesseur, pour lui permettre de 
sauvegarder les adresses de 



retour au programme principal, 
lors des déroutements vers des 
sous-programmes ou vers des 
programmes d'interruption. Cette 
pile vous servira aussi, dans les 
programmes, à sauvegarder le 
contenu des registres. Sa struc- 
ture est du type LIFO (last-in, 
first-out : dernier entré, premier 
sorti). La sauvegarde dans cette 
pile consiste finalement en des 
opérations d'empilage et de dépi- 
lage. Il nous reste encore un 
registre de 16 bits à voir ; le 
compteur ordinal : PC. Ce regis- 
tre n'est pas manipulé directe- 
ment par le programmeur, mais 
c'est lui qui pointe la mémoire 
pour aller chercher en séquence 
les différents codes opération et 
opérandes. 

Le Z80 possède deux autres 
registres 8 bits : les registres I et 
R. Le registre I pointe la table des 
vecteurs d'interruption. Nous en 
reparlerons quand nous verrons- 
les modes d'interruption du Z80. 
Le registre R fournit les adresses 
de raffraîchissement pour les 
mémoires dynamiques. 
Nous arrêterons là notre bavar- 
dage pour ce numéro. Au pro- 
chain rendez-vous, les choses 
seront plus sérieuses : nous par- 
lerons du fonctionnement du 
microprocesseur et commence- 
rons à parler de l'assembleur pro- 
prement dit. 

Figure 1 
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DE CAMEMBERT 



Les résultats d'élections à la 
télévision nous ont familiarisés 
avec cette représentation circu- 
laire des divers pourcentages 
obtenus. C'est beaucoup plus 
"parlant" que les diagrammes en 
barres verticales. 
Le programme que nous vous 
proposons est complet, à savoir : 
la saisie des données brutes, le 
calcul automatique en pourcenta- 
ges, le classement (facultatif), 
l'affichage de la représentation 
graphique en camembert avec la 
liste complète des éléments 
(pourcentages et total), édition 
sur imprimante de la liste des 
résultats et "Hard copy" de la 
page graphique. Ajoutez à cela 
les corrections d'erreurs à la sai- 
sie et une multitude de sécurités 
anti-étourderies. Un logiciel d'une 
rapidité étonnante pouvant être 
utilisé à des fins professionnelles, 
et qui ne fait que 3655 octets 
REM comprises, soit deux 
"Blocks" sur cassette. 

LE MODE D'EMPLOI 

Il est parfois beaucoup plus clair 
de commencer par la fin... 
La première page d'écran est le 
titre qui vous demande d'entrer 
le nom de baptême de votre 
tableau. Tous les caractères tels 
virgule et guillemets sont admis. 
Un pointillé vous indique le nom- 
bre de caractères maxi (40). 
Deuxième page d'écran : la sai- 
sie des données brutes. L'en-tête 
rappelle que vous avez droit à 
douze noms (ou éléments) de 1 5 
caractères maxi chacun. La 
numérotation de 1 à 1 2 est auto- 
matique. Nous sommes toujours 
en MODE 1. 



Entrez le premier nom, ENTER, 
quantité correspondante, ENTER, 
nom suivant, etc. 
En bas de l'écran figurent deux 
options : E pour erreur, Q pour 
quitter la saisie (automatique 
après le douzième nom). Deux 
cas d'erreurs : 

— le curseur étant sur "quan- 
tité", vous constatez une erreur 
sur le nom situé à gauche (vous 
avez déjà pressé ENTER). Tapez 
E, ENTER; vous pouvez réécrire le 
nom ; 

- le curseur est sur "NOM" et 
vous constatez que la ligne supé- 
rieure est erronée, tapez E et 
vous revenez sur la ligne précé- 
dente. 

A la fin de la saisie, on vous 
demande si vous voulez un clas- 
sement. Répondons N (non), par 
exemple. Aussitôt après... 
Troisième page d'écran, en 
MODE 2, le camembert se des- 
sine à gauche. Chaque secteur 
est repéré par des lettres A, B, C, 
D, etc. En haut apparaît votre 
titre. A droite la légende, Lettre 
A = tel nom = tel pourcentage, 
etc. Au-dessous "Sur un total de 
..." (somme des quantités). 
En bas à droite, le choix entre 
quatre options : 

I = l IMPRIMER 

(Si vous avez une imprimante...). 

II y a d'abord écriture de la liste 
détaillée des résultats, saut de 
page paramétré et copie sur 
imprimante (ici EPSON ou assimi- 
lée) de la page d'écran graphique. 
Un bip sonore signale la fin de ce 
travail. Les autres options sont 
toujours disponibles. 



C = CLASSER 

La page d'écran est modifiée 
avec, cette fois-ci, le plus fort 
pourcentage obtenu en "A", et 
ainsi de suite. On peut comman- 
der une deuxième impression. 

E= ENCORE 

C'est un RUN du programme 
pour un autre tableau. 

F = FIN 

Retour à l'état initial de l'AMS- 
TRAD (couleurs), MODE 1 et 

END. 

LE PROGRAMME 

Si vous n'avez pas d'imprimante, 
vous pouvez vous dispenser de 
taper les lignes 4220, 5000 à 
51 10, et de 56000 à la fin. De 
même, supprimez Z (200) en 
ligne 50. 

Pour beaucoup d'entre vous, ce 
sera l'occasion d'utiliser certaines 
fonctions Basic peu courantes 
mais tellement pratiques, qui font 
la gloire de l'AMSTRAD. 

— UPPER$ qui transforme tout 
en majuscules. 

— STRING$ qui évite de taper 
une longue série du même carac- 
tère ; de même SPC pour les 
blancs (dont le manuel ne parle 
pas...). 

— CHR$(1 8) qui efface la ligne à 
droite du curseur. 

— CHR$(7) qui émet un bip 
sonore. 

— XPOS, YPOS qui permettent 
de faire un LOCATE à l'extrémité 
d'un DRAW ou d'un DRAWR. 

— UNE INPUT qui est à INPUT ce 
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que WRITE est à PRINT (prend 
absolument TOUS les caractè- 
res). 

Nous avons ajouté une fonction 
Basic manquante : CIRCLE. C'est 
notre mini-module 54000 à 
54040 qui trace un cercle parfait 
(pas en pointillés...) en une 
seconde ! On lui donne les coor- 
données X, Y de son centre, son 
rayon R et sa couleur COL (PEN 
1 par défaut). Son principe est de 
tracer 36 "cordes". 
C'est arbitrairement que nous 
avons limité le nombre de noms 
à 12. Il ne faut pas confondre 
camembert et roue de bicyclette ! 
Nous avons souvent usé d'un 
côté sympa de l'AMSTRAD qui, 
lorsqu'il attend des valeurs entiè- 
res (exemple dans un LOCATE) et 
qu'on lui livre des valeurs calcu- 
lées décimales, transforme ces 
dernières en entiers et arrondis au 
plus proche ! 

TABLEAUX DE CALCULS 

DIM CA(12,3) : En 1 ce sont les 
quantités NB saisies (totalisées 



par TNB). En 2, le rapport 
NB/TNB (multiplié par 1 00 - %). 
En 3 = la position angulaire, donc 
tenant compte des angles des 
secteurs antérieurs. Ils sont recal- 
culés si on a demandé un classe- 
ment (tri) en deuxième passe. 

TRACE 

Après tracé des rayons séparant 
les secteurs (ligne 4040), on 
trace "à blanc" les bissectrices 
de ces secteurs, mais avec un 
rayon plus court (lignes 4050 à 
4080). Il s'agit alors de transfor- 
mer ces coordonnées graphiques 
(XPOS et YPOS) en coordonnées 
texte (LOCATE) afin d'inscrire 
l'initiale du secteur (A, B, C...). Le 
calcul de la ligne 4090 fait une 
division par 16 pour l'axe Y 
(400/25 = 1 6) et par 8 pour l'axe 
des X (640/80 = 8), car nous 
sommes ici en MODE 2. 
La rapidité d'exécution est assez 
surprenante. 

IMPRESSION 

Le module 5000-51 10 peut être 



appliqué à toute imprimante, à 
l'exception du CHR$(27)" " 
(ligne 5010) qui est un code 
EPSON qui vide le buffer de l'im- 
primante ( = "initialisation d'im- 
primante"). Une précaution 
systématique. Le saut de page de 
la ligne 5090 s'applique au papier 
1 1 pouces de 66 lignes par page 
(le plus courant). 
Le module de Hard-Copy (56000- 
56240) ne concerne que les 
imprimantes EPSON RX ou FX (et 
les EPSON vendues sous une 
quinzaine d'autres marques... ). 
Le principe consiste à explorer la 
mémoire d'écran en 80 bandes 
verticales, mise en DIM Z de ces 
octets, et envoi de ceux-ci en 
"BIT IMAGE" (code CHR$(27) 
"K" de la ligne 56120). On 
obtient alors un tracé 1 8 x 24 cm 
qui déforme légèrement le cercle. 

NOTE : Si vous utilisez ce module 
utilitaire pour d'autres program- 
mes, n'oubliez pas le DIM Z (200) 
mis ici en ligne 50. 



Michel ARCHAMBAULT 



AJiSTRA 

20 ' fiichel ARCHAKBAULT 1985 
50 DIÎ1 NM$*12',CA'i2,3î,2<200} 
33 'M CA 1=-3UANTIÎE NB'2=NB/T0TAL;3=Pf)SITI0N ftW 
ULAIRE 

70 INK 0,1; INK 1,24: ÏNK 2.20: INK 3, 6: BOEDER 15 ORI 
GIN 0.0 
100C ; TITRE 

10n MODE 1 ; PAPES 2'FEN 3 CLS LOCATE 20,? D « r N" " 
CAMEMBERT" 

1020 R=120:X=160:Y=26C:CCL=-!;GOSUB 54000 
1030 LOCATE 3 : 20:PEN 0:PRÏNT "Nos* du Tablssi,; ";ST 
R!NG$!22.",")STR:N5iil8. ,; ,";:PEN 3 LOCATE ,0 .2H L 
INE INFUT 111$ 
1040 7IT$=LEFT$(TIT$,40' 

lliû CLS: LOCATE 3 ? 2;PRINT ,: l2 NOMS naxi ce 15 CARA 

CTERES tax i . 

1120 LOCATE 4,24;PRïNT 'Erreur = E : pcmr QulU°r 

NOM = G" 

1130 LOOTE KM'PRIHT "NOM !!: LC2ATE 25,4:?PI s îT "Q 

uni! l i i£L ; : i tri J 

1140 S=N+l:LXftTE 5,5tN;PSINT USÎNG *«#" H; LOCATE 



-STSING*( 15 



7,5*N;PRINT " : 

KE ÎNPUT "Mi 

1150 IF UPFER*ïNMïï = "Q" THEN N=N-1:G0Tj 2C00 

1155 IF NM»="E" THEN N=N-2;G0Tu 1140 

ilcC NK$*NS=LE ? Tt*N!1*,i5) 

1170 LOCATE 27,5 i N , INPUT ""M\ ;NB=VA!.'N'Si ; . IF fJF 

ES$tSB$5="E" THEN S=H-Ï :GQT0 1140 

< ■-= î- .s'p r - fit|Tj 5jpj .i'«, -,3 *fR<:j TiffK az^if "î, 

i ; 50 r : 4-;ï. * !z«s TK^zT'JOifîP ■ I? >Jr'" TUrj> '?"<V1 



:/■, ? IF N=! THEN PRINT CKRi ( 7 ); LOCATE 3-22:P 
-*5 de CïS'efberi pour UNE «fiable..." FOR I 



MUNKEY») IF Gî= ; N" THEN 



:! ' FîrtiMt 



ttU ,1 WTM?:CA(Ï ,3)=360ï 
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41 OC LOOATE 40+ï4D-LEN:T!T$}!/2 
«110 FOR 1=1 TO N 

4120 LOOATE 47-4+ï PRÎNT CHRt(64+I ) ■ ' MH$ ( I - 

4130 LOOATE ô7,4+ï:PRINT "= "/.PRINT USING '##.##" 
:CAiI, 2)1:00; PRÎNT " %" 
4140 NEXT 

4150 LOCATE 50, i9:PRïNT "SUR UN TOTAL DE";TNB 
4200 LOOATE 38,23:PRINT "Encore, Fin, Iipriwr,Ci95s 
et ■ i E,F,LC )" 

4210 Q*=UPPERt( INKEYÎ ) ; IF Qt = ' : E" THEN RUN 
4220 IF Qi= ! T ! TKEN GOSUB 5000'PRINT#8,CHR$i27!°?" 
PRINT 0KR»(7);G0T0 4200 
4225 IF QI="C" TKEN 2100 
4230 IF MOT" THEN 4210 
4240 MODE 1 ; I NK 3,1:INK 1.24: BORDER 1; PAPER 0:PEN 

4250 LOCATE 11,12:PRINT "VOUS POUVEZ ETEINDRE. !i ;PR 
INT:PRINT 

42 AO EN!": 

530O 'IMPRESSION (EPSON) 

5010 PRINTfS,CHR$i27i"§";SPCf!40-LENïTST$})/2î:TIT 

$:PRINT»8 

5020 FOR 1=1 TC N 

5030 PRINTtb. USING "#I";I; :PRINTI8," : "; 

5040 PRINT#8,NM$( I ) ; SPC( i 5-LEN ' NK* ( I) ) ) : " = ".' 

505O PRINT#8,USING"M.*r , Cft(ï,2)*100; 

5060 FRINTI8," % (";Cft(I,iî;"!" 

55070 NEXT 

5030 D RINTS8:?RIN"*3,SPCii2!;"Sur un TOTAL de";TNB 

5090 FOR 1=1 TQ (62-N) : PRINT#8 : NEXT 

=;:oo cnvr?, 56000 






56C4U 

56050 
55050 
56070 
56080 
56090 
56100 
56110 

56130 
5:140 
56150 
56160 
56170 
561SO 
54190 



56/30 
56 ? 40 



lEG;PLOT X. + h, Y , i+COL 

DRftï RtCGÎi ï/i : + " . RïSINi A* : +Y : NEXT 
RETURN 

'KA3D COPY MODE 2 sur- EPSON 
PRINT #8 
PRINT *8,CHRîî27î :CHR*\64) :OHR$'27) : "r 

PRINT S3,CKRiîl3) 

PRINT *8,CHSt.'15I; 

FOR COL=4?152 TO 49231:1=0 

FOR LI=COL TO COL+S920 STEP 80 

FOR T=LI TO 11+14336 STEP 2048 

1=1+1 :2(!)=PEEK!T); IF 1=200 THEN GOSUB 

NEXT: NEXT: PRINT #8,CHRî(133 ; NEXT 

PRINT'»8,CHRiï27!:"K";CHR$(100!'CHRi(0* 

FOR J=200 TO 151 STEP -1:P=Z«J) 

PRINT St9,CHR$iP) CHR$(0);:NEXT 

PRINT #8,OHRi!2"W K X"'GHRinnO):CHP$ ; Oi 

"(M 1=150 TO 101 STE? -l:P=2CS 

PRINT *8,CHR$!p! : fHRii0i: NEXT 

PRINT »3.CH3«i27),"K";CHR$U00):GHR$<Q) 

FOR 5=100 TO 51 ETE* -i;P=Z\J! 

PRÏ V- 43,CHSI(P!;CHRt(0i; :NEXT 

PRINT 13 . GHRï I 27 ï ; "K" ; CHfii ( ! 00 ! ; CHRt ; î 

r OR 1=50 TC : STEP -i;P=Z<J) 

PRI MT Ità.CHRÎipi.CHRîiO 1 : *IEXT 

RETURN 

> FIN CF î 'S? T KG 
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Ce programme compte 3 parties : 

BIORYTHME 

Entrez votre date de naissance et 
la date du jour ; vous obtiendrez 
votre position sur les cycles intel- 
lectuel (33 jours), émotionnel (28 
jours) et physique (23 jours) : 
haut, bas ou critique. Les droites 
verticales en pointillés indiquent 
la portion des 5, 1 0, 1 5, 20, 25 e 
et dernier jours du mois, et la 
droite, en trait plein, le jour 
demandé. 

ZODIAQUE 

Entrez votre date de naissance, 
et vous saurez votre signe du 
zodiaque chinois (1 signe par 
année) et votre signe du zodiaque 
français avec les décans (atten- 
tion : les limites des différents 
signes peuvent varier selon les 
sources). 

CALENDRIER PERPETUEL 

Entrez votre date : vous obtien- 
drez le jour de la semaine, le rang 
du jour dans l'année, le nombre 
de jours restants et le calendrier 
du mois. 

Valable pour les années à 5000 
(donc entrez 1 985 et non 85) et 
tenant compte du passage du 
calendrier julien au calendrier gré- 
gorien. 

A la question "suite ?", répondre 
par 0, 1 ou 2 selon les explica- 
tions du sommaire. 



! REM VIE PRATIQUE 

2 REM COPYRIGHT ERIC GROUSSARD 



10 MODE l: BORDER 



20 PRINT " 

30 PRINT 

40 PRINT " 

50 PRINT 

60 PRINT "SUITE 

70 PRINT " 

30 PRINT " 

90 PRINT 

100 PRINT " 

120 PRINT 

120 PRINT 

130- PRINT 

140 PRINT 

150 PRINT 

160 PRINT 

170 PRINT 

130 PRINT 

190 PRINT 

200 INPLT S 

210 GL3 

lli IF S=0 THEN END 

230 GN S GCTO 270,1290 

240 REM— ----- 

250 REM BIORYTHMES «S: 

260 REM -* rrr -- 

270 PRINT "DATE DE NAISSANCE 
280 INPUT "J=";J1 

290 :n?ut "n=";m 

300 INPUT "A=":A1 
310 IF 5=2 THEN 1290 
320 PRINT "DATE ACTUELLE : " 
330 INPUT "J=";J2 

M= P 'M2 
A=".:.A2 



INK , 1 ! I NK 1,24:INK 2,20: INK 3 
FIN 10" 
BIORYTHMES 1" 



SOMMAIRE" 

1 AUTRE PERSONNE" 

2 AUTRE DATE" 

SIGNES DU ZODIAQUE 



SUITE '0 SOMMAIRE" 

1 AUTRE PERSONNE" 

CALENDRIER PERPETUEL 

SUITE :0 SOMMAIRE" 
1 AUTRE DATE" 



?40 



340 INPUT 
350 INPUT 
360 CLS 

S'O PRINT 

330 LCCATE 23,1; PRINT 



"DATE DE NAISSANCE ;",JL 



390 LOCATE 27 - \ 
400 PRINT "DATE 
410 LCCATE 23,2 
420 LOCATE 27,2 
430 V*J2 
44? ON Ml G03US 



PRINT "/ 
ùrTtrrr i c 

n_'i UbUib 

PRINT "/ 
PRINT V 



;M1; 

;A1 

;M2; 
A2 



360,2370, 2330, 2390, 2400, 2410. 2420 
460,24~0 

450 ON M -0SUB 23s0, 2370, 2360-2390. 2400, 2410. 2420 



,2430,2440,2450.2460,24^ 



411 



!-M 



1440,2450,2460,2470 
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jUIU ù3l> 
OTO 630 



480 IF 32 < 100 TKhN A3=i90G+A2 ELSE A3=A2 

490 A=;NT!5ô5,25î(A2-A!i'+J2-Jit| 

500 IF AI/4=IHT!A2.'4) TKEN 510 ELSE 540 

510 IF J2>59 THEN 520 ELSE 540 

510 IF K2;2 2HEN ft=A+! 

530 IF A.K2QQ0 AND ft2 1999 ÎHE£ fi=ft-l 

540 PRINT "AGE-" : A; : ' JOURS 8 

550 X=A «OD 33;Y=A HCC 28:2=A MOD 23 

560 PRINT "BIORYTHME INTELLECTUEL^ :X; 

570 LOCATE 26-4 

530 IF X>1 THEN 590 ELSE 520 

590 IF X<16 THEN PRINT »;HÂUT"'"-™'r 

600 IF X>17 THEN 610 ELSE 620 

610 IF X<32 THEN PRINT ":BAS";GOT( 

620 PRIN" " IGRITIQUE" 

630 PEN 3IPRINT "BIORYTHME EMOTIONNEL =\'Y; 

640 LOCATE 28,5 

650 IF Y>i THEN 660 ELSE 690 

660 IF Y<;3 THEN PRINT V HAUT*: GOTO 700 

670 IF Y>15 THEN 680 ELSE 690 

680 IF Y, 27 THEN PRINT ": BAS": GOTO 700 

690 PRINT " IGRITIQUE' 1 

700 PEN 2IPRINT "BIORYTHME PHYSIQUE =";Z: 

710 LOCATE 28,6 

720 IF 2>1 THEN 730 ELSE 760 

730 IF Z<11 THEN PRINT ";HAUT";GOTG 770 

740 IF Z> 12 THEN 750 ELSE 760 

750 IF Z<22 THEN PRINT ";BAS"lGOTO 770 

760 PRINT ,; IGRITIQUE" 

770 D=iX-V+34iMOD 33lE=!Y-V+29!HOD 28. F=iZ- 

MOD 23 

780 IF K2=2 THEN 790 ELSE 810 

"90 IF A2/4=1NT(A2/4Ï THEN P=29;G0T0 830 

300 P=28;GGT0 830 

810 IF PI2=4 OR M2=6 OR H2=9 OR H2=ll THEN ?-'-. 

83Ô 
820 P=31 
830 G=l 

340 IF D<8 THEN 1=16*0+136 

850 IF D=S THEN PLOT iôtC-31 ,248,1 iDRAW 16*0- 

4,1: DRAW 16*0-7,264,1 :DRA« i 6*0+ i, 25e, 1 ; GOTO 

860 IF 0)3 AND D<25 THEN I=400-Î6*D 

670 IF D=25 THEN PLOT 16*0-31,16,1 :DRA« lé*C- 

1 ; DRAW 16*0-15, 3, 1 : GOTO 900 
860 IF D-25 THEN 1=16*0-392 
890 IF 0=1 THEN PLOT 
900 C=C-1 ID^D+1 



15. 
-OC 



i - i-ii-t- 



DRAW 16tG-15,I : 



910 IF 0=24 THEN D=l 

920 IF C>p THEN 930 ELSE 640 

930 0=1 

940 IF ECS THEN I=16*E+136 

950 IF E>7 AND E<21 THEN I=36Q-16*E 

960 IF E>20 THEN Ï=16*E-312 

970 IF 0=1 THEN PLOT 1,1,3 ELSE DRAW 16*0- 

980 0=0+1 :E=E+! 

990 IF E=29 THEN E=l 



1000 



•P THEN 101 



<6 THEN 



!ô*F+13t 



1030 IF F>5 AND F<18 THEN I=320-l6*F 

1C4C !F F>17 THEN !=16*F-23: 

1050 IF 0=1 THEN PLOT 1-1,2 ELSE DRAW !ô*C-15 

1063 IF F=5 THEN DRAW 16*0-3-228,2 

1070 IF F=17 THEN DRAW 16*2-11 ,44,2 : DFt?-W lè*C- 

1080 0=0+1 ;F=F+1 

10*0 IF F=24 THEN F=: 

1100 IF C;P THEN i 1 10 ELSE ,020 

1110 FOR 1=1 TO 640 



1120 h 



u\j i i j ij 



: , i ; n. 



• p"-* - =■ t " *• ! pr~;T ^n=; î '; pl_jT 3?5 ~. 

_ - L" , 

- : ";1 Ï'CVT ; 

; 130 PEN 1 1 IHK 1-24 

1190 LOCATE S3-12 ! PRINT "HAUT" 

1700 LOCATE 33,l7:PRINT "CRITIQUE" 

12:0 LOCATE 33:21 ; PRINT "BAS" 

■ 2?0 ^OCATE i,?:?RINT PRINT Kî A3 

!??0 LOCATE 25, S INPUT "SUITE 0,1. 2";S 

1240 CLS 

înô REM ZODIAQUE CHINOIS ^ 

i r 'Q"j XV T^^ 

■ ? : ;q sem 

1310 1nfut "date de naissance u=",j;l 
nput "m=",k;locate 30,1 input "a=",a 
1320 if am9c0 then a=a-1900 

1330 IF M=l THEN K=J 
1340 IF M=2 THEN K=Jr3i 
i350 IF Mi 2 "HEN K=tO 
Î3t0 FOR B=0 TO 65 

1280 !F B=Â IHEN 1400 

• r i"--. i:nv-- û 

410 IF K>=L THEN H=H+1 

1420 IF H=0 THEN C$="DU SANGLIER" 

1430 IF H=! THEN Cî="DU RAT" 

1440 IF H=2 THEN Cî="DU BUFFLE" 

1450 IF H=3 THEK C*="DU TIGRE" 
1460'!? H=4 THEN C$="DU CHAT" 

1470 IF P=5 THEN C*="DU DRAGON" 

148") !'-' H=i THEN Ci="DU SERPENT" 

1490 IF 4=7 IHEN Ci = ''DU CHEVAL" 

1:00 IF H=3 THEN C*="DE LA CHEVRE" 

ij;u ;r ri-'' inoi" uf- u; Sinut 

1520 IF H= 1 THEN Ci='DU COQ" 

1530 IF h=ll TKEN C$="DU CHIEN" 

1 f 40 LOCATE 11,5 PRINT "ZODIAQUE CHINC 

1550 LOCATE 5,8;PRINT "VOUS ETES DU SI 

15c0 DATA 3î,50,39,2 û ,4 r -35-25-4'r:33:: 

1610 DATA 2£ : 4è , 36:25:44, 33-21 ,40-30-4 
63 DATA _ 5 
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IB!3 IF J(D2 THEN N=2;G0T0 1S4Û 
1820 IF I<D3 THEN N=3'GOTO 1840 
1330 N=1I 

1640 K=N+lC*K'L=INT{N/iO) :P=N-10tL; L=L+9 : IF L>12 T 
KEN L=L-12 

1850 R*=«ID* « "BELIER TAUREAU GEMEAUX CANCER 
LION VIERGE BALANCE SCORPION SAGITT 
AIRECAPRICORNEVERSEAU POISSONS \10*L-9,10) 
1860 IF P=l THEN T$="ER ,: ELSE T*="ENE " 
1870 LOCATE 10.14;PRINT "ZODIAQUE FRANÇAIS" 
1380 LOCATE 5,17;PRINT "VOUS ETES ! ';Rt'" DU";p:T*: 
"tjECiH" 

18^0 LOCATE i ,25, INPUT "SUITE=0,i";S 
1900 CLS; RESTORE ; ON S+l GOTO 10,1310 

1910 REM 

1920 REM CALENDRIER PERPETUEL S 

1930 REM -SÏT-- 

1°40 DIM P(12) 

1950 INPUT "DATE ; J=", J ; INPUT " M=",M:INPUT " 
A-" A 

i960 '*=J:Jl=O:P(l)=3l:P(3)=31;P(4)=30:P(5)=3l:P<6) 
=30 ; PC 7)=31 ;P? B) =31 :P(9)=30 :P( 10 )=3î ;P< 11 >=30 :P< 12 

) = 31 

1970 IF ft/4=INÎ(A/4) THEN Pi2>=29 ELSE P(2)=2S 

1980 IF A/400=INT!A/40ÛJ AND A>1 600 THEN PC2)=28 

1990 FOR N=l TO 12 

2000 IF N=fl THEN N=F!N):GOTO 2030 

2010 J=J+P(N? 

2020 NEXT N 

2030 IF V>N THEN 2080 

2040 IF A<1582 THEN 2090 

2050 IF A? 1582 THEN 2100 

2060 IF J<=277 THEN 2090 

2C70 IF J:-=288 THEN 2100 

2080 LOCATE 9,12:PRINT "CE JOUR N'EXISTE PAS,' ! ;GOT 

2340 

2090 E=4:G0TQ 2110 

2100 E=l 

2110 FOR 1=17 TO 50 

2120 IF i/4=INT!I/4) THEN 2140 

2130 IF A> 1*100 THEN E=E-.l ELSE 2150 

2140 NEXT I 



.2150 IF P(2;=29 THEN E=E-1 
2:cC E=INT:!,25ïA)+J+E:B=B MOD 7 
2170 ON fi GOSUB 2360, 2370, 2380, 2390, 2400, 2^10, 24?0 
-2430. 2440, 2450, 2460, 2470 
2130 *=0:!F V=l THEN Tt = 'ER " ELSE ?* = "" 
2190 IF M THEN S$="ER " ELSE S$="EME " 
2200 Ci=MID*rDIKANCHELUNDI MARDI MERCREDI IEUD 
I VENDREDI SAMEDI ",818+1.8) 
2210 OLS : LCCnTE 5,2:PRIMT "LE";V.Tt;K< A: "EST UN " 
05 

2220 .OCATE 5,4;PRINT "C'EST LE :) ; J'S*. " JOUR DE L'A 
NNEE" 

■6:FRINT "IL RESTE" :337+p;2î-J;" JOURS 



Luoriih 



2240 LOCATE 13-9;PRINT K$:" ":A 
2250 LOCATE 10.1! :PRINT "L M H J V 5 D" 
22c0 IF A=!582 AND H=10 THEN LOCATE 10,!3;PRINT "1 
2 3 4 15 16 17";LOCATE 10,15;PRINT "18 19 20 
21 22 23 24':LOCATE 10,1?:PRÎNT "25 26 27 28 29 30 
31" :GOTO 2340 
2270 r =S-iv «CD 7 )+3:F=F MOD 7;ï=13:IF F=0 THEN F= 



2290 LOCATE 3ïF+6,Y,IF Î=V THEN PEN I 

2300 PRINT I 

2310 F=F*!;IF F=R THEN F=î ; ¥=¥+2 

1320 NEXT I 

2330 PEN 1 

2340 LCCATE 1,25; INPUT "SUITE 0,1" ;3 

2350 CLS: ON S+l GOTO 10,1950 

2360 ï=0K$=" JANVIER': RETURN 

2270 w=31:Kî="FEVRIER":RETURN 

2230 ï=59.K$= "MARS": RETURN 

23°2 *=90.Ki="AVR!L" RETURN 

2400 ¥= î 20 : K $= " HA I " : RETURN 

2410- ï=15l;K* = " JUIN" :RETURN 

2420 Î9=:61 M = " JUILLET" :RETURN 

2432 W=212 Kt="AOUT":RETURN 

2440 ï=:43:Kï= "SEPTEMBRE": RETURN 

2450 8=273 ;Ki= "OCTOBRE". RETURN 

24*0 a=30i K$= "NOVEMBRE": RETURN 

2470 «=334:1*1= "DECEMBRE"; RETURN 
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KILOBYTE 

Imaginez que votre AMSTRAD 
vient de tomber en panne : il ne 
lui reste plus qu'un kilo-octet de 
mémoire... 

Vous ne connaissez que le Basic 
(langage machine s'abstenir). 
Saurez-vous écrire des program- 
mes originaux performants qui ne 
tiennent que dans ce kilo-octet ? 
Nous attendons vos propositions, 
en Basic seulement, ne l'oubliez 
pas, et sur cassette. Accompa- 
gnez votre envoi d'une brève des- 
cription. Les cassettes vous 
seront retournées si vous le 
demandez. 

Alors, tous à vos claviers ! Il faut 
réussir à loger le maximum d'in- 
telligence dans un kilo-octet... 
Les meilleurs programmes seront 
mis à l'honneur dans CPC. 



APPEL AUX LECTEURS 

CPC est la revue des utilisateurs 
d'AMSTRAD. ô combien de 
nuits blanches et de mètres de 
papier d'imprimante ont défilé 
avant que votre splendide utili- 
taire ou votre jeu d'arcades ne 
fonctionne. Pourquoi rester dans 
l'ombre ? Faire connaître son tra- 
vail et son nom aux autres pas- 
sionnés sont déjà une belle 
récompense ; quand, de plus, ce 
travail peut être rénuméré, pour- 
quoi hésiter ? 

Vous qui avez réalisé une carte 
d'extension ou un logiciel dont 
vous êtes fier, contactez sans 
plus attendre la rédaction de 
CPC : nous vous expliquerons 
comment être publié. Tiens ? Le 
téléphone sonne déjà ! 
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Stéphane CLOIREC 




e programme est inspiré du 
film "TRON" de Walt Disney. 
Il est basé sur le célèbre duel 
à moto entre le héros et le 
M.C.P. (comprenez : Master 
Control Program, le software 
qui dirige l'ordinateur des 
jeux). 



Entièrement en Basic, il permet 
de jouer à deux ou tout seul et 
comprend quatre arènes différen- 
tes. On peut utiliser indifférem- 
ment le clavier ou les joysticks 
(pour plus d'explication, tapez le 
programme et lisez attentivement 
les instructions). 
Il vous faudra tout d'abord ren- 
trer le Loader, le premier petit 
programme, le sauver sur cas- 
sette ; puis tapez le listing prin- 
cipal (les deux programmes peu- 
vent être sauves sous n'importe 
quel nom). 



1040-1080 : 

Place la "Warp-Box" à 

l'écran 

1120-1160 : 

Présentation, instructions 

1680-1880 : 

Sous-programmes utilisés par 

instructions 

1920-2030 : 

Menu principal, choix du type 

de jeu 

2070-2140 : 

Les différentes arènes du 

duel 



2180-2280 : 

Initialisation (ink, coordon- 
nées, enveloppes,... ) 
2320-2430 : 
Arène libre 
2470-2540 : 
Arène labyrinthe 
2580-2620 : 
Arène aléatoire 
2660-2680 : 
Arène de la mort 
2720-2940 : 
Routines sonores 



STRUCTURE DU JEU 

120 : 

Test jeu à 1 joueur/Jeu à 2 

joueurs. 

160-290 : 

Routine principale à deux 

joueurs (test de clavier, de 

collision, fuel...). 

330-500 : 

Fin de jeu 

540-630 : 

Nouvelle partie 

670-790 : 

Routine principale à un joueur 

(cf. 160-290) 

830-880 : 

Fin de jeu 

920-1000 : 

Nouvelle partie 




40 KDE 0' INK 0,0;EORDER 0;PEN i ; PAFER 
50 INK !.2;L0CATE 2,5;PR!NÎ"tt* LA3ER-BÏKE îtt" 
iO ORIC-IN 2Q,345:DRfi'*'R 600,0,1 :DRrïR 0,-37, 1:DRAÏ 
-600,0,1 ;BRnwR 0,37,1 
70 INK 2,6" ^EN 2;L0CfiîE 7,1Î:PRI8T CHR*Uà4!; n 1? 



m sieyiidi: 



OLOifi 



90 0R1GIN 34, lt?;DRA¥R 504,0,2 

100 INK 4 , B : PEN 4:L0CnîE 1,21 îPRINT'Ghargeiient en 
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90 GOSUB 2150; ' initial isations 

100 GOSUB !!00; ' instructions 

110 GOSUB 1390: ' «tenu principal 

120 ON op GOTO 160. 5 7 

130 ' 

1 4 C ' routine principale pour ieu a deux joueurs 

150 ' 

160 FLOT xb,yb,l:FLOT xr,yr,2 

170 SOUND 1..100,l,7,l,î 

180 IF INKEY ibd>=0 THEN xbl=l !ybi=0 ELSE ÎF îNKEV; 

bg)=0 THEN xbl=-i:ybl=0 

190 IF IWŒY(bh)=0 THEN xbl=C:ybi = i ELSE IF INKEY; 

bb)=0 THEN xbl=0;ybl=-l 

200 IF INKEY<rd)-0 THEN xrl=l;yrl=0 ELSE IF INKEYs 

rq)=0 THEN xrî=-l;yrl=0 

210 IF 'NKEYirh)=0 THEN xrl=0;yrl=] ELSE IF INKEY ! 

rbi^O THEN xrl=0;yi"l=-l 

220 xb=xb+4*Kbl ! yb=yb+ybi*2 

230 xr=x?+4txr i : yr=yr+yr 1*2 

240 fue!=fue)-î:IF f uel=0 THEN GOSUB 2830 ; GOSUB 27 

30; GOTO 300 

250 PLOT 52B,36ï,7;PSINT USIHG't»*" Mue! : 

260 bcra5h=TESTixb,vb! ;rcrash=TESTUr ,yr î 

270 IF bcrashM OR rcrash=4 THEN 290 ELSE IF bcras 

hOO AND rcrashOO THEN GOSUB 2910:GOSUB 2830:GOSU 

B 2730: GOTO 300 

280 IF bcrashOO OR rcrashOO THEN GOSUB 29!0:GOSU 

B 2830;GO5UB 2730:G0TO 410 

290 GOTO 160 

300 ' 

310 ' Mort des deu?! joueurs ou panne d'essence 

320 ' 

330 MODE llLOCATE 12,3:PRINT"TR0N'S LASER-BYKES";P 

EN 2;LOCATE 12,4:PRINT"==================" 

340 PEN 3 ; LGCATE 1,7; PRINT" Champions, vous vous e 
tes bien battus." 

350 PRINT: PRINT" Nais votre duel s'est termine d 
■'une manière assez décevante. Le U.C. P. va vous 

dire ce qu'il en pense.. . ";PEN 1 
360 IF fuel=0 THEN PRINT: PRINT" Vous n'avei pas eu 

assez de fuel pour mener a terme ce combat qui d 
evait être mortel. Vous ne méritez donc pas qu'on 

vous laisse la vie sauve !!!":GOTD 380 
370 PRINT: PRINT" Vous avez ete assez stupides pour 

vous exterminer mutuellement, Votre place n' est 
pas dans cette arène, mais aux minesde silicium de 

Soracom-city il! " 

380 PEN 3 : LOCATE !,18:PRINT" Néanmoins, dans sa qr 
ande sagnan imi te, le H. O.P. vous laisse une chance 

de vousrattrapper, ° 

2^0 LOCATE 6,22:PEN 2PRINT J 'Ne la laisser pas echa 
pper !'!' 
400 GOTO 540 
410 ' 

420 ' Mort d'une des deux laser~byltes 
420 ' 

440 MODE 1 : LOCATE 1 2.3 ;PRINT"TRÛN'S LASER-BYKES":p 
EN 2:LOCATE 12,4:PRINT"==================" 

450 PEN 3: LOCATE 1,7: PRINT" Champions, vous vous e 

tes bien battus." 

460 IF bcrashOO THEN cou! $ = ,i rouqe";rsco"e=?score+ 

1 ELSE ccul t=*bleue" :bscore=b5core+l 

470 PRINT;PRÎNT" Hais le conducteur de la iaser- 



donc 



rouir s'est reve'e le plus fort. C'est": 
accorde une victoire 



pus i e * . 



en plus. 

480 LOCATE 17,15:PEN i; PRINT "SCORE *' LOCATE !7,16:P 

EN 2:PRINP— = r =":PEN 3 



490 LOCATE 10,19: PEH 1 :PRINT" Joueur Bleu "::P 

EN 2:FRINT bscore 

500 LOCATE 10,21 : PEN 2:?RINT"Jousur Rouae ";:P 

EN l;?RINT rscore 

510 ' 

520 ' On re.oue ? 

530 ' 

540 LOCATE 1,24, PEN HPRINT" Appuyez sur la tou 

:he 'ENTER'... ";a$=INREY$; IF a$=""THEN 540 

550 IF a$OGHR$ï!3i THEN 540 

560 SODE l:FOR n=-15 TO 15:SOUND 4,ABS(rt)*lû,5,15, 

0,0,ABS(n) NEaT;LOCATE 12.3;PRINT"TRON'S LASER-BYK 

ES": PEN 2: LOCATE 12,4:PRIHT"===«=============" 

570 PEN 1 : LOCATE 7,7:PRINT !i vculez-vous re t ouer 1 

( O / N )" 
580 at=INKEY*;st=UPPERîiaî} ; IF a*<>"0" AND alO'H" 

THEN 580 

5*0 IF ai= !| N"THEN 110 
600 LOCATE 7,9;PRSNT"On change l'arène ? 
! O / H )" 
610 a*=îNKEYt:a$=UPPER1<al):IF a$O"0" AND aiO'N" 

THEN 610 

62C IF at="N"THEN GOSUB 2!50:GOSUB 2!30:GOTO 120 
630 GOSUB 2 150: GOSUB 2070; GOTO 120 
640 ' 



ù6U 

670 EI;AFTER ternes GOSUB 1010 

680 PLOT xb,yb,i 

69C SOUND 1.100,1,7,1,1 

700 IF :NKEY(hc)=0 THEN xbl=l ;ybi=0 ELSE IF INKEY( 

bg)=0 THEN *bl=-l;ybl=0 

710 IF INKEY;bh)=0 THEN xbl=0;ybi=l ELSE IF INKEY! 

bbS=0 THEN xbl=Q;ybl=-i 

72û xo :: xbi-4ixbi ;yb=vbtybi-'2 

730 fueî=fuei-l;IF fuel =0 THEN GOSUB 2830:GOSUB 2^ 

W¥§k^wm2mmm^ m y 

b>16*iy-i)THEN vic=l ; GOSUB 2B70:GOSUB 2780, GOTO 33 



7 70 ÎF bcrasM THEN 680 ELSE IF bcrashOO THEN GO 

SUB 2510: GOSUB 2830 : GOSUB 2790:GOTO 830 

780 xi=IHT(RND«14»+14:yi=INT<RHDt320}+t:PIjOT xm,v 

!» ■ ! 2 

790 GOTO 680 

tOO ' 

8i0 ' Fin de jeu 

320 

830 KCDE Î:D::L00ATE 1 , 3 : PEN 2, PRINT" 

■; LOCATE 10,4;PRINT" : "; ;PEN ;;PRINT" TRO 

N'S LASER-BYKES ""PEN 2, PRINT" : " :LOCATE S0 r 5 : PRIN 

T,l! B 

B40 fcUunlL l,o rtk irHilU vous rvez essdyr ue v 
dus mesurer avec le Haster Control Prcgram, mais 
celui- c' n'est jamais a court de ressources ." 
350 IF fue;=0 THEN LOCATE 1,12;PRINT" vous n axe: 

même pas eu asseï de fuel pour l'inquiéter :î |8 ;t 
emps-te'ips-lC0;5OTO '20 
660 IF vi"l THEN uOCATE 1 -:2'PRINT ; Pou'tant , vous 

a--ez ncwi'eneflen* 'sussia 'e mettre en déroute.. 
. ' .PRINT""--';'.:; poi-vez, tien-sur, rester sur cette v 
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intN mscore-mscore-* 



880 IF vi 

390 ' 

900 ' On r-foue ' 

910 ' 

920 LOCfiTE 1,18: PEN liPRINT" Neannoins, voulez-v 

ous refaire une uns partie contre moi ' I 

/ N !" 

930 a$=INKEY$:a$=UFPER$ïa*);îF a*<>"0" AND a$<>"N" 

THEN 930 

940 IF a$="N"THEN GOTO 110 

950 LOGATE 15,21; PEN 2:?RINT"HA! HA 1 HA 1 ,..";FOR 
i=l TO 500:NEXT 
960 LOGATE 4,23;PEN î ;PRINT"Qn change l'arène ? 

( / N )" 
970 d$=!NKEY$:a$-UrPER$ia$);IF a$<>"0" AND a*<>"N" 

THEN 970 
980 GOSUB 2150 

990 IF at="N" THEN GOSUB 2130;GOTO 120 
1000 GOSUB 2070; GOTO 120 
1010 ' 

1020 ' place le but a atteindre 
1030 ' 

1040 ïftGOFF:x=INT (RND*18)+2:y=INT !RND*17)+7:LOCA 
TE x,y;PEN 13:PRINT CHR*(181): TAG 
1050 y=26-y 
1060 GOSUB 2760 
1070 Dl 
1080 RETURN 
1090 ' 

1100 ' instructions 
1110 ' 

1120 MODE l; BORDER 
1130 LOCATE 10,1; PEN 2 

114C PR1NT ! ' ":GOSUB 2800 

1150 LOCATE 10,2;PRlNT"; l! ;GOSUB 2800 

1160 LOCATE 10,3;PRÎNT" »;GOS 

UB 2S00 

1170 Pffl l:CH$="TRON'S LASER-BYKES" 

1180 SOUND 7,60,150,15,5,0 

1190 FOR j=l TO 18 

1200 LOCATE 4!-i.2;PRINT LBTfkht, i) 

1210 NEXT 

122C FOR j=22 TO 12 STEF -1 

1230 LOCATE j,2;PRINT ch$ 

1240 NEXT i 

1250 FCE j=40 TO 30 STEP -1 

1260 LOCATE .i,2;PRINT" !l 

1270 NEXT i 

1260 LOCATE 3 i , 2 : PEN 2;PRlNT""";GOSUB 2800 

1290 ch$=" Instructions": GOSUB 1680 

1300 GOSUB 1750 

1310 PEN 3; LOCfiTE 4,8;PRïNT"Bienvenue a vous, Guer 

rlers du Futur' ".'"Vous venez de pénétrer dans îe n 

onde duret impitoyable des jeux videos, ou seulsle 

s plus forts, les plus rapides peuventesperer sur-v 

ivre quelque temps, ■ ," 

1320 LOCATE 4,!4;PRINT"Vous a^ei ete choisis pour 

participer";"* ce duel par le Haster Control Prog 

ramîfl.C.P. pour les intiseslLe combat ne setersine 

ra que par la mort d' un des deuxtonbattants." 

1330 PEN 2;LOCATE 4 , 20 : PRINT" Inut i le de fuir;"::pE 

N 3;PRÎNT"Une fois le programme": "engage, le due! 

est inévitable. Vos sortssont maintenant lies a cel 

ui du H. CF." 

1340 GOSUB 1820 

1350 GOSUB 2720 

1360 chî="But du Duel '"GOSUB 1630 

1370 GOSUB 1740 

1 JOf, PPM 



iqi *; lX-AÎE '.H PRINT" Vous allez être places a 
uï commandeede nouveaux engins-tueur ; les LASER-BYK 
ESCe sont, en quelque sorte, des motos quilaissent 
derrière elles un sillage faserdont le contact es 
i nor tel» 

1400 PRÎNT;PR1N T " Votre but sera , bien evideaa 
ent, défaire 'crashe:*' l'autre conducteur sanspou 
t autant en faire de même !" 
1410 PRINT F'RINT" De plus, pour être en accord 
avec 'ae'ec sion du Haut Commissaire des Jeux,!eK.C 
, y a ! : Si i.e :a consommât :on de tue' a999 Feqacred 
ta au départ." 
1420 GOSUB 1620 
1430 GOSUB 2"20 

1440 ch5="Var;antes";G0SUB 1680;GOSUB 1740 
1450 PEN 3;L0CATE 1,S:PRINT" Vous pouvez, bien- 
entendu, combatt'ea deux joueurs , mais vous avez 
aussi l aposs ib> l i te de *ous re-entrainer ccn'rele 

1460 LCCATË 1,13, PRINT" - Dans le Duel a deux, 
chacun dlrlgeune Laser-Bvke." 
1 4"0 PRINT'PRINT" - Contre le H. G. P. ' Celui-ci 
envcledes aines qu'il faut a tout prix évite? jus 
qu'a l'apparition du ":;PEN 2: PRINT"' WARP-BOX'"; :P 
EN 3 FR1NT" . qu , " • ' permet , s i or ^'atteint, oe s'e 
chapper del 'arène,"; 

1480 PRINT' (Vous utiliserez la Laser-Byke Bleue)' 1 
1490 GOSUB 1320 
1500 GOSUB 2720 

1510 :ht="Gommandes":GCSUB !680;GCSUB 1740 
1520 PEN 3 'LOCATE 1,8 
1530 PRIN r " Voici les commandes dirigeant les deu 

154C~PRIKT;PEN 1 :PR!N?"Lase?-Byke B'eue":;PEN 2;PR 
i.~i: Laser tsvKe itouoe 

1550 PEN 3: PRINT" A " 4 



1560 PRINT" X 
1570 PRINT" 



iOOU buOUB Idill 

; cc'i -■-, cira 07 ?n 

1600 chî= 'Arènes de Combat": GOSUB 1680' GOSUB !' 

1610 PEN 3:L0CATE !,6:PRINT" Enfin, le Due' 
ut se dérouler suri 'une des quatre arènes , de 
f 'cul tesd i f f erentes , que possède le M.P.C," 



i 3 ; PEN liPRÎNT 



Happeiez-vous 



4U 
ce 
dit" 

to 



ujours que TRON lumeme a fini par être vaincu 
le H.P.C 
1630 PEN 3 : PRIN?"Ause i ,n 'esterez pas de victoif 



is4û LûCfiîE 3,1?: PEN Z . r'Rihl '.Nés'-.: ~s. &c nr e l' r sx- 



1660 RETURN 



16^0 FCR i=l TO LENichtl: LOGATE ,,5 

1700 PRINT HIDi!chi.i,l);30UND 2,!NT(RND*957'M 

1710 r OR at=l TO 50 NEXT at 

1"20 NEXT i 

1730 RETURN 



FOR -i TC LENichi: 



JOrtiE 
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1773 PRINT "=": SOUND 2,INTIRNDï957i ,5,15 

i 780 FOR at=S TO 50:NEXT ai 

1790 KEXT i 

1800 RETURN 

181C ' 

1820 PEN l:ch*="Lftppuyei sur une touche]" 

1830 FGR i=î TC LEN(chî) ; LOCrîTE i +8,24 

1840 PRINT MIDi;ch$,!,l!;SOUND 2,INT(RND*957),5,15 

1350 FOR at=l ÎO 50;NEXT ai 

1860 NEXT ! 

1870 CALL &BB18 

1080 RETURN 

S 890 ' 

• 900 ' Menu principal 

1910 ' 

i?20 MODE 1 

1930 GOSUB 2150 

1940 PEN 1; PAPER 0; BORDER 

1950 b5core=0;rscore=0!ïscore=0:teips=1000 

i960 FOR n=-15 TO 1 5 : SOUND 4,ABS!n)*!0.5,i5,0,0.AB 

S(nS;NEXT 

1970 LOCATE 10,3;PEN 2:PRINT" 

-":LOCftTE 10,4:PRINT"; U ;:PEN 1: PRINT" ÎRQN'S LASER 
-BYKES !! ;:PEN 2;PR!NT" ;";LOCATE 10,5:PRINT" 



1980 LOCATE 8,9: PEN 3:PRINT"1 Joueur contre Joue 
ur";LOCATE 8. 11 :PRINT !I 2 Joueur contre !e M, O.P." 
; LOCATE B,13:PRINT"3 Arrêt du jeu" 
1990 PEN 1 : LOCATE 1 , 16;PRINT"Cho;sisse2 votre opti 
on' (1,2 ou 35 ; s :op=VAL(INKEY$);IF op<! OR oo>3 T 
HEN LOCATE 33,16;PEINT " ":GQTQ 1990 
2000 ÏF op=3 THEN PEN 1 ; MODE 2:END 
2010 LOCATE 4,21; PEN 2;PRINT li Clav!er ou Joystick ? 
■■ G / J ) : !T :rep$=UPPER*!ÎNKEY«):!F REPîO"C"AND 
REP*0"J"THEN LOCATE 38,21 :PRINT" ":GOTO 2010 
2020 IF REP$="C"THEN rd=5:rg=14:rh=20;rb=13;bd=62; 
bg=à3:bh=69;bb=71 IGOTO 2070" 
2030 bd=75 : bg=74 ; bh-72 ' bb-73 : rd=51 :rg=50 : rh=48 ; rb= 
49 

2040 ; 

2050 Choiï de 1' arène de coabat 
2060 ' 

2070 CLS:FOR n=-15 TO i 5 : SOUND 4,ABS(n)tlÔ,5,15,Q, 
0,ABSinî;NEXT 

2080 LOCATE 10,3: PEN 2;PRINT" 

-":LOCATE 10,4:PRINT";";;PEN 1 SPRINT" TRQN'S LASER 
-BYKES ";;PEN 2:PRINT !, :":LOCATE 10,5: PRINT" 



2090 LOCATE 1 , 8 : PEN lîPRINT "Les différentes Arène 

s de Combat : H 

2100 LOCATE 1,9: PRINT »===================== 



2110 LOCATE 3,12: PEN 3:PRINT"1- Arène ouverte" :LO 

GATE 3,14:PRINT"2- Arène-labyrinthe"; LOCATE 3,16: 

PRINT"3- Arène a' eato i re" ; LOCATE 3,1S;PRINT"4- A 

rené de ia Mort" 

2120 PEN 1 : LOCATE 1,21 ;PRINT"Cho!s;ssez votre opti 

on {1,2,3 ou 4) :": iab=VALi INKEY* ) ; IF !ab<! OR iab 

>4 THEN LOCATE 39,21 iPRINT" ":GOTO 2120 

2130 ON !ab GOSUB 2290-2440,2550,2630 

2140 PEN 1: RETURN 

2150 ' 

2160 ' in i * i ai i sat i on 

2180 INK 0-0-INK 1,2; INR 2,6;INK 3,l8:INK 4,13 !NK 
5,li;INK 6,15:INK 7,24: INK 8,2; INK ?,6;INK 10.8:1 
NK il,4;INK 12,20; INK 13,19,16 
2190 xb=270:yb=20: s^=370: yr=310 
2200 xrl=0:xbl=0:yrl=-l:ybl=l 



2210 fue'-999'vic-0 

2220 ENv l,9,l,i,l,0,5,9,-l,2;ENT 1,5, 

10.1,1,10,-1,1,5,1,1 

"30 ENV 2,15,-1,13 

0,10,1,10,-12.1 



i.l. 



2240 ENV 3.15.-1,30;ENT -3,10 

2250 ENV 4,15,-1,4 

2260 ENV 5,30,2,5 

22 7 RETURN 

2280 ENV 6,!5,-i,ï;ENV 5 15,-1 , 1 : ENT 1,30,10,1 

2290 ' 

2300 ' Arène ouverte 

2310 ' 

2320 MODE 

2330 DRAWR 0,330,4 ; DRAWR 639, 0,4; DRAWR 0,-330,4; DR 

AWR -639.0,4 

2340 PLOT 8,4,5; DRAWR 0,322, 5: DRAWR 622 . , 5 : DRAWR 

0,-322, 5: DRAWR -622,0,5 

2350 TAGlPLOT 0,399:DRA¥R 639,0 ; DRAWR 0,-50: DRAWR 

-o39,0:DRAvJR 0,50; PLOT 0,374: DRAWR 639,0; PLOT 304, 

3'4:DRAUR 0,25 

2360 PLOT e,392,£:FRlNT a BLEu,., : " 

RINT"RO:jGE... b ; 

2370 PLOT 8,366,ô;PRINT !l FUEL RESTANT 

2380 ON op GOTO 2390. 24 10 

2390 PLOT 8,392,3 D R!NT"BLEU 

RINT"ROUGE,, " 



Il ^O- Ç,D 



HT ', 



Dl (YT '314 "S' Q • P 
p,T Ç 



niiu niju-jD,,, 

2400 PLOT 234,392,9;PR1NT USING"f#" :bscore' iPLOT 

74,392, 8;PRINT USING"M":rscore; :GOTO 2430 

2410 PLOT 234,392,9;PRINT USING"**";bscore; ,PL0T 

7â qo? Q.ûPïht 51QT WCii* " '«crr,«a ' 



74,392,a;PRINT~USING"#r ; »5co'e; 
2420 PLOT 8,392,8:PRINT : '3LEU,, ,' ! ; ;Pi 

D!»!T»M r û » • 



RINT'K.C.P.. 

2430 RETURN 



316,392,9;p 



Arene-iabyr inthe 



-jon crv t i 



24 G :arl$=CHR<U50)+CHR*(156) 
2500 •:ar2«=CHR$(147)+CHR*(153) 

2510 TAGOFF 

2520 FOR i=2 TC 18 STEP 4; FOR j=7 TO 22 STEP 3 : LOC 

AXE i , j : PR I NT carli;LOCATE ; , j+1 :PRiNT car2*:NEXT 

t . i 

2530 IAG 
2540 RETURN 

n c c - 

25&0 Arène aléatoire 

2580 GOSUB 2290 

2590 PEN 10 

2600 :3H$=CHR$!238S 

26.0 TAGOFFiFOR :-! TO . 

Dllt '+7 LOCATE -<,y:rRINJ car;* ?ŒXI lîlftfe 

2&20 RETURN 



s=INT(RND*i8>+2lv=!HT<RN 



2c70 FOR 1=1 TO 20;x^;NT;RND:f590H20 , â=INT\RNDl5 ç 

! +20 ; v-INT (RNDÏ295 ; +20 ;b=INT( RND*295 ! +20 ; PLOT » , y , 

1 2 DRAW à,b,12;NEXT ; 

2:7: ÏAGOFF FOR -i TO 1 9 ; LOCATE 10, ;+5;PRINÎ" "i 

NEXT ' TAG 

2sb0 RETURN 
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2720 MODE î 

2730 FOR n=-15 TO i 5 : SOUND 4,ABS!ni:i:lO,5,15,O.0,!ÎE 

S(n):NEXT 

2740- LOCflTE 10,1; PEN 2;PRINT" 

- ! ':LOCATE 10,2;PRINT" : " ; :PEN HPRINT" TRON'S LnSEP 
-BYKES '";PEN 2;PRINT":";LOCnTE iû,3;FRINT" 



2750 RETURN 

2760 FOR n=l TO 20:SOUND 4,300+ÏNTîRND*500i,B:NEXï 

2770 RETURN 

27S0 FOR a=l TO 25;OfiLL ÎEC4D; SOUND 135, <a+10)*4.0 

,15,3,3:NEXT 

2790 RETURN 

2800 SOUND 7,0,60,15,4,0,1 

23 î FOR a=l TO 400:NEXT 

2B20 RETURN 

2S30 RESTORE 2850 



2840 SEAD noie, dur :1F note=-S THEN 2S60 ELSE SOUND 
4 : nnte,duf ,0,2;GOTO 2840 

2850 DATA 1911, 120.191!, 80, 1911, 40, 1911,120, 1607. 8 
0,1703,40,1703,80,1911,40,1911,80,2025,40,1911,120 

2860 FOR a=i Tu 2800 iNEXT; RETURN 
2870 RESTORE 2890 

2380 REAB note; IF note=-l THEN 29Q0 ELSE SOUND 4-n 
ots,20,15,l :GOTO 2380 

2890 DfiTn 60,53,47, 45, 60, 0,45, 47. 45, 40, 53 , 0,53, 47, 
45,36,40:40,45,45,47,53,47,60,-1 
2900 FOR â-i TO IC00;NEXT:3ETURN 
2910 SOUND 7,0:195,15,2,0,15 
2920 FOR ;;=! TO !5;IHK 0.26;FOR a=l TO l*:NEXT:!NK 
0,0. FOR a=l TO 40;NEXT a,x 
2930 FOR 3=1 73 800;NEXT 
2° 10 RETURN 



ABONNEZ-VOUS 




LE CHOIX D'UNE 



LES TROIS 

TECHNOLOGIES D'ECRITURE 



plusieurs couleurs. A ne pas 
confondre avec la "copie 
d'écran" qui très souvent est 
impossible. 



C'est un outil quasi indispen- 
sable pour programmer en 
Basic dès que l'on dépasse le 
stade du débutant. Une impri- 
mante constitue aussi la finalité 
de nombreux logiciels utilitaires, 
exemples courrier (très supérieur 
à une bonne machine à écrire), 
éditions de tableaux, de fichiers, 
etc. 

C'est un investissement lourd, 
mais de longue durée ; une impri- 
mante ne se démode pas comme 
un micro-ordinateur. Donc, deux 
raisons pour ne pas se tromper : 
mieux vaut économiser encore 
quelques mois plutôt que d'ac- 
quérir un modèle médiocre, 
générateur d'ennuis de tous gen- 
res. 



LOG/CYS 

première en Europe à présenter 

ACCÈS DIRECT 

sur AMSTRAD CPC 464 & 664 
sous le nom de 

UDOS 

Pour travailler sur des fichiers INDEXES et intégrer 

l'ACCES DIRECT à tous vos programmes sur 

disquette. 

Des UTILITAIRES de travail sont associés à ce mini 

operating System. 

_ _BON_DE_COMMANDE 

ATTENTION : VERSION UDOS 1 - 3 

D JE DÉSIRE RECEVOIR UDOS 1.3 AU PRIX UNITAIRE DE 380.00 F MC 

Ole : loid : + 10 F de pon 

JE JOINS UN CHÈQUE DE F 



D JE POSSÈDE DEJA UDOS EN VERSION 1.2 
Je vous retourne ma disquette pour avoir : 
UNE MiSE A NIVEAU iveision I 3l 
COMMENT SAUVEGARDER UDOS 
DES COMMANDES SUPPLÉMENTAIRES 
JE JOINS UN CHEQUE DE 95 F ET MA DISQUETTE 12 



NOM : 

CODE POSFAL 



.ADRESSE 
.VILLE .. 



A RETOURNER A LOGOS. DOMAINE DE FAYSEAU. 33270 BOULIAC 
TEL 56 20.92.5/ 



Les thermiques 

Elles utilisent un papier spécial 

qui bleuit à la température. C'est ^ aiguilles 

très silencieux, assez rapide, bon u "matricielles". Jadis hors de 

marché (la machine, pas le prjx (d - ou l'ancienne vogue des 

papier), mais la qualité d'écriture thermiques), elles sont au- 

laisse fort à désirer ; et ce n'est jourd'hui à peine plus chères que 

pas photocopiable. A déconseil- )es autres . c'est la technologie 

1er en micro-informatique dômes- que nous conseillons : très rapi- 

tlc l ue - des (100 à 200 caractères par 

seconde), très belle écriture (sauf 

A stylos-billes certains modèles bon marché), 

Généralement à quatre couleurs papier ordinaire, en bandes per- 

(quatre stylos spéciaux montés forées standard ou en feuille à 

sur barillet). Peu bruyantes, belle feuille ; au moins quatre tailles de 

écriture mais d'une lenteur caractères, plus les mêmes en 

désespérante. Deux avantages : italique ou en écriture "renfor- 

le prix et la fonction "table tra- cée " possibilité de copie d'écran 

çante", c'est-à-dire que grâce à graphique. Bref, des bêtes à tout 

certains ordres spécifiques à la faire# et en pjus de ce(ai elles 

machine (équivalant à PLOT et sont d ' une surpre nante robus- 

DRAW), on peut dessiner, et en tesse mécanique (sauf une cer- 
taine marque). Deux défauts : 

:::::::-.«:::: aussi bruyantes qu'une machine 

jlipjjiijjiij à écrire — une seule couleur 
d'encre, le noir. 

= 1 llliii: Les autres _ 

Pour usages professionnels très 
spécifiques, à savoir les impri- 

ijjiljjijjjjjj mantes à "marguerites" (analo- 

gues aux machines à écrire à 
boule IBM) Super qualité cour- 
rier, mais très lentes ( = 15 CPS 

•jjjij:!:::::: = caractères par seconde) et 

caractères limités à ceux de la 
marguerite installée. Plus chères 
que les matricielles, leurs prix ont 
tendance à baisser. Réservées 
exclusivement au traitement de 
texte classe PRO. 
Les imprimantes à jet d'encre, 
pour des tables traçantes prof es- 

:::::::!::!!!: SÎOnnelleS. 

Les imprimantes au Laser. Tout 
pour plaire : qualité, rapidité 
(environ une page en six secon- 
des...), mais encore hors de prix, 
même en pro. Leur principe rap- 
pelle celui de la photocopie lan- 
cée par XEROX. 

Combien faut-il compter pour 
illllillfiflll une bonne imprimante à aiguil- 
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IMPRIMANTE 



les ? Entre 3000 et 4500 francs 
TTC. Certes, c'est cher, mais 
c'est pour longtemps. On change 
de micro-ordinateur, mais on 
conserve son imprimante. La 
preuve, vous n'en voyez prati- 
quement pas en occasion ; sauf 
des modèles bas de gamme dont 
on veut se débarasser. 



COMMENT 
ÇA MARCHE ? 

L'électronique d'une imprimante 
rappelle celle d'un micro-ordina- 
teur : elle a sa ROM (son lan- 
gage) et une petite RAM appelée 
"buffer" ou "tampon". Suppo- 
sons que le micro lui envoie la 
lettre A majuscule, code ASCII 
65, donc envoi du nombre 65 en 
binaire sur un octet. Les huit bits 
en même temps ; il y a donc, 
dans le câble de liaison, au moins 
huit fils numérotés "DO" à "D7" 
(voir le schéma de la page A5.2 
du manuel AMSTRAD), auxquels 
s'ajoutent un fil de masse plus 
deux autres de"conversation" 
appelés STROBE et BUSY. Dia- 
logue du genre : "Es-tu prête à 
recevoir ?" "Non, je n'ai pas fini 
d'imprimer... Vas-y ! ... Stop ! 
mon buffer est plein", etc. 
Nous venons de décrire le mode 
de transmission "parallèle" (les 
8 bits ensemble) aussi appelé 
standard "CENTRONICS" ; nom 
du fabricant d'imprimantes qui 
l'a lancé. C'est celui utilisé par 
AMSTRAD et la grande majorité 
des autres micro-ordinateurs 
domestiques ou professionnels. 
Toutes les prises côté impri- 
mante respectent cette norme, 
mais pas côté micros, d'où des 
câbles spécifiques à chaque mar- 
que de micros, ce qui est 
complètement stupide et regret- 
table. 

Il existe aussi la transmission en 
"série" ou "RS 232 C" (câble à 
deux conducteurs). C'est (heu- 
reusement !) beaucoup plus rare 
et très mal normalisé. N'en par- 
lons pas. 
Donc, notre imprimante reçoit 



pour "A" le nombre 65 : sa ROM 
va commander les aiguilles de la 
tête d'impression afin qu'elles 
impriment tel dessin, ici le A. 
Quelle forme de A ? La forme 
banale, courante, prise par 
défaut dès la mise sous tension 
de l'imprimante. C'est la taille 
"PICA", 80 caractères par ligne 
de 20 cm de long. Voulez-vous 
d'autres tailles de caractères ? 
Facile : envoyons d'abord à l'im- 
primante des ordres codés 
qu'elle va conserver en RAM 
dans son "buffer de consignes". 



LES CODES 
DE CONSIGNES 

Ils commencent généralement 
par CHR$(27). Exemple : 

PRINT #8,CHR$(27);"4"; 
"Vivement Dimanche" 

va provoquer la forme dite en 
"italique". Les phrases suivantes 
seront aussi en italique. Pour 
annuler cette consigne, trois 
méthodes : 

— un code de contre-ordre, ici 
CHR$(27);"5" ; 

— un code qui vide tout le buf- 
fer : CHR$(27);" " ; 

— éteindre et rallumer l'impri- 
mante. 

Un point noir (si j'ose dire...), tou- 
tes les imprimantes n'ont pas le 
même langage. Celui que nous 
illustrons est celui des impriman- 
tes Epson, langage heureuse- 
ment identique sur bien d'autres 
marques. C'est une sorte de 
"standard" officieux, un peu 
comme le Basic de l'AMSTRAD 
qui est considéré comme "stan- 
dard" parce que très ressemblant 
au "Basic MICROSOFT". Dans 
notre exemple, il y a le listing du 
programme Basic et ensuite ce 
que cela donne sur la plupart des 
imprimantes. 

Dans ce petit programme de 
démonstration, nous avons illus- 
tré quelques fonctions parmi les 
53 dont on dispose sur l'EPSON 
RX80. 



Michel ARCHAMBAULT 



LA TETE 
D'IMPRESSION 

Une merveille de micromécani- 
que ! Dans le texte mobile, il y a 
neuf aiguilles disposées les unes 
au-dessus des autres ; soit neuf 
pistons métalliques commandés 
par neuf micro-électro-aimants. 
Elles viennent frapper un ruban 
encreur derrière lequel est le 
papier. La frappe d'un caractère, 
un A par exemple, se fait en cinq 
déplacements latéraux de la tête 
de gauche à droite. Cent carac- 
tères par seconde, cela fait donc 
500 frappes par seconde ! On 
reste confondu devant une telle 
vitesse, une telle précision et 
aussi une telle robustesse. Je 
connais des petites imprimantes 
qui tournent cinq à six heures par 
jour depuis un an et demi sans 
toujours la moindre panne... Seul 
le ruban est changé tous les mois 
(voire tous les deux mois). 

LA QUALITE 
D'IMPRESSION 

Certains modèles bon marché ont 
moins de neuf aiguilles, et le 
résultat n'est pas très joli, surtout 
en minuscules où il n'y a pas de 
jambages inférieurs. Ainsi, les let- 
tres "f, g, j, p et y" sont "remon- 
tées" dans la ligne. C'est le cas 
de l'imprimante rebaptisée par 
AMSTRAD et de nombreux 
modèles SEIKOSHA. Voilà pour- 
quoi elles sont moins chères... Ce 
n'est absolument pas présentable 
pour du courrier (avis personnel 
largement partagé). 
Autre point à vérifier : la nature 
du ruban encreur. Il faut qu'il soit 
très long, type machine à écrire. 
S'il est présenté en cartouche, 
attention au réapprovisionnement 
pour les marques peu connus, car 
chaque fabricant a ses modèles 
de cartouches... Un bon point 
pour la GEMINI STAR qui utilise 
une bobine standard. Un zéro 
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pointé pour le modèle étiqueté 
AMSTRAND dont la (chère) car- 
touche ne contient qu'une bou- 
cle de 50 cm avec passage sur 
une ampoule d'encre ! Résultats : 
démarrages avec ruban sec et 
caractères pâles et une rente en 
cartouches. Où se trouve alors 
l'économie ? 

LA COMPATIBILITE 

Le cas est rare, mais on rencon- 
tre parfois des incompatibilités 
d'humeur entre tel micro et telle 
imprimante. Par exemple, saut de 
ligne entre chaque ligne ("LINE 
FEED"). Souvent, il suffit de 
modifier la position d'un switch 
dans l'imprimante, parfois il n'y 
a pas de solution. 
Donc, avant d'acheter une impri- 
mante, essayez-la chez le ven- 
deur, avec un AMSTRAD et un 
câble approprié. 



LES CRITERES 
DE DIVISION 

Nous venons de voir les deux 
principaux, à savoir les jambages 
inférieurs des minuscules et la 
nature du ruban encreur. En voici 
quelques autres importants : 

— La possibilité de "clavier" 
français, qui permet d'imprimer 
les caractères minuscules accen- 
tués. C'est quasi indispensable. 

— L'écriture renforcée. C'est très 
pratique lorsque le ruban 
demande sa mise à la retraite. 

— Friction/Traction. La position 
"Friction" permet de charger des 
feuilles séparées, à en-tête, par 
exemple. 

— Pour faire du "Hard Copy" 
d'écran (graphiques), il est obli- 
gatoire de disposer du BIT IMAGE 
et du pas d'interligne variable. 

A l'inverse, ne vous laissez pas 
séduire par des caractéristiques 
en fait peu importantes, à savoir : 



— La vitesse : 80 CPS est bien 
suffisant. 

— Les tabulations horizontales, 
verticales et la marge droite. 
Même si vous les avez, un bon 
conseil, ne vous en servez pas ! 
Programmez des SPC et comptez 
vos lignes en Basic, c'est beau- 
coup plus sûr... Pour le nombre 
de caractères par ligne, utilisez la 
commande AMSTRAD WIDTH. 
Après un WIDTH(40), un LIST 
# 8 fournira un listing identique à 
celui de l'écran en MODE 1. 
Attention ! une commande 

, WIDTH reste dans le buffer de 
l'AMSTRAD, pas dans celui de 
l'imprimante... 

Je pense que vous avez tous les 
éléments pour décider de cet 
achat ou non. Un dernier détail : 
à l'image des téléviseurs et des 
machines à laver, les fabricants 
d'imprimantes sont très peu 
nombreux, mais les "marques" 
sont, elles, très nombreuses. 



10 DEMONSTRATION D'IMPRESSIONS SUR EPSON RX-80 

20 PRINT#8,CHR*(27)"@";: Nettoie le Bu-f ter , sans sa 

ut de 1 i gne 

30 PRINT#8,"Ecriture NORMALE forme RICA: 80 CARACTE 

RES PAR LIGNE. " 

40 PRINT#8: SAUTE UNE LIGNE BLANCHE 

50 PR INT#B,CHR*( 27 ) "W"CHR*(1> ; "CARACTERES LARGES": 

PRINT#8 

60 PRINT#B,CHR*(27> "E"; "ON RENFORCE L'ECRITURE. 

RINT#8 

70 PRINT#B, CHR* (27) "W"CHR*(0> : 'SUPPRIME LE MODE LA 

RGE.PAS DE ; =SAUT D'UNE LIGNE 

B0 PRINT#B, "L'ECRITURE RESTE RENFORCEE" : PRINT#8 

90 PRINT#B,CHR*<27>"4";"Aimez-vous 1 ' ITALIQUE ?" 

100 PRINT#8,CHR*(27) "5"; : SUPPRIME L'ITALIQUE 

110 PRINT#8,CHR*(27) "M"; "PLUS PETIT VOICI LA FORME 

DITE ELITE. " 
120 PRINT#8,CHR*(27> "P"CHR*(27) "F": SUPPRIME ELITE 

ET RENFORCE 
130 PRINT#8,CHR*(15> ; "LE MODE CONDENSE PERMET DE L 
OGER 132 CARACTERES PAR LIGNE. " : PRINT#B 
140 PRINT#8,CHR* (18) ;: SUPPRIME MODE CONDENSE 
150 PRINT#8,CHR* (27) "W'CHR* ( 1 ) ; CHR* (27) "M" ; CHR* (27 
) "4"; CHR* (27) "E" ; "COMBINONS LES MODES ITALIQUE," 
160 PRINT#B," LARGE, ELI TE ET RENFORCE. 
170 PRINT#8,CHR*(27) "@" 

180 PRINT#8,"0N PEUT AUSSI " ; CHR* (27) "-"CHR* ( 1 ) ; "S 
0ULI6NER UN MOT" ; CHR* (27) "-"CHR* (0) ; " OU UNE PHRAS 
E":PRINT#8 

190 PRINT#8,"OU DECALER DES INDICES ET EXPOSANTS:" 
200 PRINT#8,"H";CHR*(27) "S"CHR*(1> ; "2"; CHR* (27) "T" 
; "O E=MC";CHR*<27) "S"CHR*(0) ; "2" ; CHR* (27) "T":PRI 
NT#B 
210 PRINT#8,"OU FAIRE DES SURCHARGES: XXXXXX";CHR* 

(8) ;CHR*(8) ;CHR*(8) ; " " 

220 PRINT#8:PRINT#8, "CHANGER LA NATIONALITÉ DE CER 

TAINS CODES ASCII: " 

230 C*="# *et3t>\" - ! "+CHR*(126) 

240 PR I NT#8 , " POUR USA , FRANCE , ALLEMAGNE , ANGLETERRE , 

DANEMARK, SUEDE, ITALIE, ESPAGNE, JAPON ET NORVEGE" 

250 PRINT#8,"0N A RESPECTIVEMENT POUR ";C*:PRINT#B 

260 FOR 1=0 TO 9:PRINT#8,CHR*(27) "R"CHR*(I> ; C* 

270 NEXT:PRINT#B,CHR*(27) "@":PRINT#8 

280 PRINT#8,"AVEC LE MODE BIT IMAGE C'EST L'IMAGE 

BINAIRE VERTICALE DU NOMBRE REÇU QUI EST IMPRIME. V 

OICI 80 FOIS 255: " 

290 PR I NT#8 , CHR* ( 27 ) " K " CHR* ( 80 ) ; CHR* ( ) ; 

300 FOR N=l TO 80:PRINT#8,CHR*(255) ; :NEXT 



E c rit u r e N R M A L. E forme P I C A : 80 C A F! A C T E R F S P A R 

LIBNE. 

<::::: « R ft c T e: r e s l « R G e s 

ON RENEOFtCE L'ECRITURE. 



:P L'ECRITURE RESTE RENFORCEE 



Aimez-vous 1 ' ITALIQUE ? 

F'LUS PETIT VOIC LA FORME DITE ELITE. 

LE MODE CONDENSE PERMET 'E LOGES !32 CARfiCTEREE PAR LIGNE. 

COMBINONS LES MODES ITALIQUE 
LARGE, ELITE ET RENFORCE. 

ON PEUT AUSSI SOU L IG N E R UN M OT OU UNE- PHRASÉ 

OU DECALER DES INDICEE ET EXPOSANTS: 
HaO E=MC 3 



OU FAIRE DES SURCHARBES: XXX*** 

CHANGER LA NATIONALITE DE CERTAINS CODES ASCI II 
POUR USA , FRANCE , ALLEMAGNE , ANGLETERRE , DANEMARK , 
SUEDE , I TALI E , ESPABIME , JAPON El NORVEGE' 
ON A RESPECTIVEMENT POUF; tt * (s C j { } \ * » ! 

* * @ C ] { 1 \ ■'- : "- 

tt * à " § é è ç •- ' û - 
tt * § A U à u b (j 13 

£ * e c ::i -i î \ ■-■ - : - 

tt * 8 iE a s à •"'■ "'* 

tt : '0. é. À A A à d u ê o u 

tt * @ ,: à A è \ ■•'- ù ù i 

l'i * S i ,;. " } K ■-'• ' n '•■ 

tt * e [ î ■;: :;■ ¥ ■'- ■ : - 

tt fi é (âsà»ùÉ«ù 

AVEC LE MODE BIT IMAGE C'EST L'IMAGE BINAIRE 
VERT I CALE DU NOMBRE REÇU QUI EST IMPRIME 
VOICI 80 FOIS 255; 
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FONCTION 



Pierre-Jean VAUCLIN 




Tous les amateurs de graphiques sur 
l'AMSTRAD se sont sans doute ren- 
dus compte à quel point il est fasti- 
dieux et peu rapide de colorier des 
surfaces autres que rectangles... 
La routine assembleur que je vous 
propose vous permettra de "rem- 
plir" n'importe quelle surface 
convexe auparavant délimitée sur 
l'écran, et cela insranranémenf, puis- 
que cette routine utilise l'accès direct 
à la mémoire écran. 



Voici la démarche à suivre pour l'uti- 
liser : 

— tracer les contours d'une figure 
convexe sur l'écran (en Basic, 
Assembleur ou autre) ; 

— déterminer l'adresse écran des 4 
pixels (en mode 1) situés en haut à 
gauche de votre figure ; il est très 
important que ces 4 pixels soient 
"effacés" au départ (qu'ils aient la 
couleur de l'encre n° 0). Cette 
adresse, comprise entre &C000 et 
&FFCF, doit être chargée dans le 
registre HL à l'entrée du pro- 
gramme ; 

— choisissez un code de couleurs 
pour vos 4 pixels (entre &0 et &FF). 
Pour obtenir une couleur unie, les 
codes sont : &00 (ink 0), &F0 (ink 1 ), 
&0F (ink 2), &FF (ink 3). Ce code doit 
être chargé dans le registre A en 
début de programme ; 

— enfin, lancer la routine à son 
début : instantanément votre surface 
est coloriée. 



REMARQUE IMPORTANTE 

Du fait de l'utilisation de la mémoire 
écran, votre figure initiale doit avoir 
pour base un trait horizontal. 
Exemple, pour colorier 




vous devez effacer la pointe infé- 
rieure afin d'obtenir : 




puis lancez la routine normalement. 




Vous découvrez peut- 
être CPC avec ce 
numéro 2, mais savez- 
vous que quelques 
exemplaires du 
numéro 1 sont encore 
disponibles ? 
Pour ne pas vous 
retrouver, un jour, 
avec la collection 
incomplète, pensez à 
la commander dès 
aujourd'hui. 
Joignez à votre 
commande un chèque 
de 18 francs. 
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A 



5 REfl {onction 'paint ' '■ exemple 
10 [ÏODE l:INK 1 , 1 J : INK 0,0:CALL 8,BC14:riO 
UE 134, 384 :DRflUR 70,-8:DRflWR 100,-200:DR 
RUIR -200, 90 :DRPWR 31,116 

15 FOR a=l TO 1 000 : NEXT :riOUE 266,132:DRA 
UR 28,0:LOCflTE 17,14:PRINT" ":FOR a=l 

TO 1000:NEXT 

16 POKE 8,5001,8,61 : POKE 8.5002, 8,00 :REH add 
resse initiale en haut a gauche de la fi 
gure C8.C061J 

17 POKE 8,5004, 8.F0 :REH couleur choisie 
20 CPLL 8,5000 :i_0CflTE 1,22 




B 



5 


• 


h l - 


-> add 


resse écran 


460 


ret 




950 


b i t 


5, a 


1 


6 


; 


A 


-> cou 


leur de 4 p i xel6 


470 next 1 : 


id 


Ch 13, h 


960 


Jr 


n z , a 1 Iu2 




10 






o r g 


«5000 


480 


push 


bc 


970 


b i t 


4, a 




20 






e n t 


$ 


490 


ca 1 l 


ttbc26 


380 


Jr 


nz , a l lui 




21 






id 


h 1 , «c010t81 


500 


Pop 


bc 


990 


b i t 


0, a 




22 






Id 


c,8f0 


510 


dec 


h 1 


1000 


J r 


n z, a l lui 




30 


: 


igné: 


td 


a, fh l) 


520 


Id 


a, Cn l : 


1010 


ret 






40 






i ne 


a 


530 


i ne 


a 


1020 a l lu3: 


Id 


b , c 




50 






dec 


a 


540 


dec 


a 


1030 


r e s 


7,b 




60 






Jr 


nz , t est 1 


550 


Jr 


nz, retour 


1040 


r e s 


3,b 




70 






id 


Ch l ),c 


560 


i ne 


h l 


1050 


ret 






30 






i ne 


h l 


570 


Id 


a, fh U 


1 060 al l u 2 : 


i d 


b , c 




90 






Jr 


i 1 gne 


580 


i ne 


a 


1070 


r es 


7,b 




100 


t 


est 1 : 


nop 




590 


dec 


a 


1080 


r e s 


3,b 




1 10 






cal 1 


tstd 


600 


Jr 


nz, retour 


1090 


r e s 


6,b 




120 






Jr 


next 1 


610 


i ne 


h l 


1100 


r es 


2,b 




130 


t 


std : 


d ; t 


0, a 


620 


id 


a, fh U 


1 1 10 


ret 






140 






Jr 


nz, a l 10 


630 


i ne 


a 


1 1 20 a 1 1 u 1 : 


id 


b,c 




150 






b i t 


1 ,a , 


640 


dec 


a 


1130 


i ne 


h l 




160 






Jr 


nz,al l 1 


650 


Jr 


nz , r e t our 


I 140 


ret 






170 






b i t 


2, a 


660 


; ne 


h 1 


1 150 next 2: 


id 


Ch l J,b 




180 






Jr 


nz , a l 12 


670 


Id 


a, fh U 


1 160 


push 


bc 




190 






b i t 


3, a 


680 


i ne 


a 


1 170 


ca 1 l 


8bc26 




200 






Jr 


n z , a l 13 


690 


dec 


a 


1 180 


pop 


bc 




210 






b i t 


4, a 


700 


Jr 


nz,retour 


1 190 


i n c 


h l 




220 






jr 


nz,a l 10 


710 


ret 




1200 


id 


a, fh U 




230 






b i t 


5, a 


720 retour : 


id 


f A4000 ] , a 


1210 


i ne 


a 




240 






Jr 


nz , a l 11 


730 


ca 1 1 


tstd 


1220 


dec 


a 




250 






b i t 


6 , a 


740 


Id 


fn 1 ),b 


1230 


Jr 


n z , r e r e t 




260 






Jr 


nz.al 12 


750 


dec 


n l 


1240 


dec 


h 1 




270 






b i t 


7,a 


760 1 i gne2 : 


id 


a, f h i j 


1250 


Id 


a, fn U 




280 






JT 


nz.al 13 


770 


i ne 


a 


1260 


i ne 


a 




230 






ret 




780 


aec 


a 


1270 


dec 


a 




300 










790 


Jr 


nz , t es 1 2 


1280 


Jr 


nz , r e r e t 




310 










800 


Id 


: h i : , c 


1290 


dec 


h l 




320 


a 


110: 


td 


b , c 


810 


dec 


h 1 


1300 


id 


a, fh IJ 




330 






rat 




820 


jr 


t i gne2 


1310 


i n c 


a 




340 


a 


1 11 : 


Id 


b , c 


830 test2: 


c a i ! 


Utg 


1320 


dec 


a 




350 






r es 


0, b 


840 


Jr 


next 2 


1330 


Jr 


n z j r e r e t 




360 






r es 


4,D 


850 tstg : 


D , t 


3, a 


1340 


dec 


h 1 




370 






ret 




860 


Jr 


nz, a l 10 


1 350 


Id 


a, fh U 




380 


a 


1 12: 


id 


b,c 


870 


b , t 


7, a 


1360 


i n c 


a 




390 






r es 


0,b 


880 


jr 


nz.al 10 


1 370 


dec 


a 




400 






r es 


l,b 


890 


D i t' 


■ 2, a 


1380 


Jr 


n z , r e r e t 




410 






r e s 


4,b 


900 


Jr 


nz , a 1 lu3 


1390 


ret 






420 






r e s 


5,b 


910 


D i t 


6, a 


1400 rer et : 


ca 1 i 


tstg 




430 






ret 




920 


Jr 


n z , a 1 lu3 


1410 


id 


f h l ) , d 




440 


a 


l 13: 


dec 


h l 


930 


b i t 


1 ,a 


14 20 


i n c 


h 1 




450 






Id 


b ,c 


940 


jr 


nz , a l l u2 


1430 


Jp 


i , gne 
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Pierre BEAUFILS 



Curieusement, l'AMSTRAD 
CPC 464, par ailleurs si bien 
pourvu, ne possède pas l'instruc- 
tion CIRCLE, classique pourtant. 
Nous proposons quelques logi- 
ciels permettant d'effectuer ce 
travail. 

UN PEU DE 
TRIGONOMETRIE... 

Soit un cercle de centre 0, de 
rayon R. Si n représente l'angle 
(en radians) définissant la posi- 
tion d'un point de ce cercle, les 
coordonnées de ce point seront : 



X : 

y : 



Rcos(n) 
Rsin(n) 



Pour tracer un cercle, il suffira 
donc de "PLOT"ter les couples, 
x, y obtenus en faisant varier n 
de à 2 7T. 




Cependant, un premier problème 
surgit : en effet, un grand cercle 
a une circonférence plus grande 
qu'un petit cercle (tout le monde 
sait cela !) et, par conséquent, est 
représenté par un nombre plus 
grand de points. Le pas d'incré- 
mentation de n doit donc dépen- 
dre du rayon R choisi. La distance 
entre deux points consécutifs est 
donnée par : 

R x pas d'incrémentation 

Cette longueur doit être au plus 
égale à 1 , qui est la distance mini- 
mum entre deux points afficha- 
bles. Par conséquent, le pas d'in- 
crémentation doit être égal à 1 /R 
pour que tous les cercles, quel 
que soit leur rayon, aient la même 
densité de points sur leur circon- 
férence. D'où le programme : 




Listing 1 



"i ;"ipI|t,TM 



" ! -, ''?<"îO 



1 1 "•'■«. p T '"-', r r p 



>0 MEXT 
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OPTIMISATION 
DU PROGRAMME 

On peut aussi tracer une série de 
cercles concentriques : 



Listing 2 




10 mode: 2 

20 roF •-■= io ro too rŒ p 

10 OR I GIN ~u.o - 200 

40 FOR n~0 TO 2+PI STEP 1 

5 P !,... T r * C S ( n ) ~ i- * S I N .( ïi ) 

60 NEXT n 

70 NEXT r 



Une question se pose mainte- 
nant : est-ce la méthode la plus 
rapide pour tracer un cercle ? En 
effet, cette figure géométrique 
possède une symétrie qu'il est 
possible d'exploiter de plusieurs 
manières : 

— tracer point par point deux 
demi cercles simultanément, 

— tracer point par point 4 quarts 
de cercle simultanément. 

Le résultat sera bien sûr le même, 
mais les temps requis seront bien 
différents, comme on peut le 
constater (pour le programme 
précédent, il fallait 1 minute et 57 
secondes). 



La dernière méthode semble la 
plus efficace au prix d'une 
complexité un peu plus grande 
pour le programme. 



io mode: 2 

20 FOR r = 1.0 TO 100 STEP 10 

30 ORIGIN 320.200 

40 FOR r,=0 TO PI STEP 1/r 

45 a=COS(r.) : b*SIN(n) 

50 PLOT r*a»r*bsPLOT -r*a>-r*b 

60 NEXT n 

70 NEXT r 



STEP 1( 



r 



J 



Listing 3 



Tracé de deux demi cercles 
(1 minute 1 1 secondes) 



10 MODE 2 

20 FOR r = 10 TO 100 

30 OR ï GIN 320,200 

40 FOR n=0 TO PI/2 STEP 

45 a=r*COS(n ) : b»r*SIN (n > 

50 PLOT a, b: PLOT -a,-t, 

51 PLOT t., -a: PLOT -t., a 
60 NEXT n 

70 NEXT r 



1 / 1 



f 



J 



Listing 4 



Tracé de 4 quarts de cercle 
(0 minute 38 secondes) 






10 MODE 2 










"50 FOR k=0 , : 


1 TO 


3 


STEP . 1 




k.> DR I GIN ? 


,' !| ^ ) ■. "'■ ''( 


'0 






■0 FOR n~0 


TO F 


>I 


STEP 1/r 



ET MEME 

DES ELLIPSES... 

On peut introduire un coefficient 
k (voir ligne 60) pour déformer le 
cercle et le transformer en ellipse. 



Listing 5 



\ n ; 



70 PLOT a, b s PLOT a, b 

80 NEXT n 
90 NEXT k 
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MATRIX 



Michel CHANAUD 



1 n ypm 

15 REM * H A î R I X * 
20 HE?! * KICHEL CHANAUD * 
25 REM 

40 INK 0,13: INK 1,0;INK 2,fc! INK 3,24:BORDER 1 3 ; MOD 

E i 

50 LCCATS 13,5:PEN 3:FOR IX=1 TO 3TRINT TA3 î î 3 ï SX 

RlNG>!15,OHR$ii43}!:NEXT 

55 LOCftTE 2S,5;PEN 1 :PRINT CHRs il 32 i ; LOCATE 28,6;P 
EN HPRINT CHR* il 33!; LOCATE 28,7:PRINT GHRt(133) 

56 LOCATE 13,3;PRÎNT CHRî ( 130 ) -STRING* ! 14,CHR«i 131 
!HCHR$U29i 

60 PRÎNT CKRî s 22 .» +CHR* , i ) r LOCftTE" 15,6; FEN ! ;PRINT" 
M fi T fi 1 X H ;PRINT CKR$(22)+CHR$iO) 
80 FEN î; LOCATE 6, 16 :PRINT"VOULEZ-vOUS LES REGLES 
DU JEU ? (Û/Ni' ! 
90 Ri=uPPERîiINKEY$i;IF R$="' ! THEN 90 



rH? 



inx.ii 'j'. 



USUB 1130 



103 ÎF LEFÎIi R5,li = ! '0' r 

110 REM 

II! SSii INITI ALISâTICNS 

112 REM 



130 DÏM Bi;8)-A$i64) ,R(3) ,g$=CHRîi20?! + CHRI\207i 

140 RANDOMIEE TIME 

150 DATA 15, tt, 10, 09. 09, 09, 08, 08, OS, 07, 07, 07, 06, 06 

,06,05,05,05,04,04,04,03,03,03.02,02.02,01,01,01,0 

0,00,00,00,00,00,-1,-1,-1,-2,-2,-2,-3,-3,-3,-4,-4, 

-4,-5,-5,-5,-6,-6,-0.-7,-7,-7,-8,-8,-8,-9,-9,-9.-9 

160 FOR IX=1 TO 64 RE AD A$!I%!:NEXÏ 

170 ?OR VX=] TO 8:FOft HX=1 10 E 

180 ft=I8T(RND»64)+LaS=a:îF flt(flJÎ)="##" THEN ISO 

l e IF A$s A%i = "**:' : THEN ■àUh%)=G\ 

200 Bim)=3$(VX)+A$(AX):A*(AJ5)= , ## ,i :IF RIGHT$ïB$> 

v%) ,2)=0$ THEN CTABX=H»2-i:LTABX=VX 

210 NEXT : NEXT 

220 FOR 11=1 TO 8:BB*UX)=Bf(ÏX>:HEXT:CCTABX=CTABX 

; LLTrtB%=LTAE?i 

230 3S=0;T%=0:LP%=0:MO%=2 

240 G03UB 730 

250 REM 

251 REM MOUVEMENT DU JOUEUR 
■-/en qvu : 

260 IF 3*iLTABs)=0i+0$+0$+0$+û$+0i+0$+0$ THEN GOTC 

270 GOSUB 1050 

m IF INREï(9ï=0 AND MIDt (B$ (LTABa) -CTAB%,2" C0$ 

THEN 360 

290 DCX=-2*UHKEYU)=Q)+2*<INKEïi8)=0>:IF DCS=0 TH 

EN LOCATE (3*CÎABX+7)/2,2*LÎABXt2:P£N 2;PRINT M; 

C$!B*(LTAB%;,CTABS,2î;FOR 1 = 1 TO î ; NEXT : lOCATE (3 

i:CTAB%+7 ) / 2 , 2s:LTAB%*2 ' PEN ilPRINT HID*£B*(LTABS) . 

CTABK,2î;FOR 1=1 TO iOlNEXT ;GOTO 230 

300 CTAB%=CTAB%+DCK 



310 



CTAB%=-1 THEN CTAB'à=15 



320 IF CTAB5i=l7 THEN CTnBK=l 

330 IF HID*(Br.i,TABXS f &TABX,2)=0$ THEN GOTO 300 

340 LOCATE !3*CTABX+7i/2,2*LÎABX+2;PEN 2 : PR ï NT MI 

D$ \ Bt ' LTAB% ■ , GTnB% , 2 ) : FOR 1 = 1 TO ! : NEXT ; LOCATE t3 

*CTAB% + 7 ) / 2 , 2 *LÎAB% + 2 ; PEN IlPRINT MIDî(BîiLTABI) , 

CÎABX,2):FQR 1=1 TO lC:NEXT 

350 FOR 1=1 TO 30 NEXT GOTO 280 

360 PEN !:LPI=vA.(MID«iB$iLTABS),CTAB5t,2)) 



MATRIX est un jeu de réflexion 
où vous jouez contre l'ordinateur. 
Une grille est remplie de valeurs 
numériques aléatoires positives 
ou négatives. Vous pouvez choi- 
sir une valeur sur une rangée en 
déplaçant le curseur à l'aide des 
flèches horizontales et en pres- 
_ sant la touche COPY. A son tour, 

Q ^ (^Ca) ' e ^^ cno ' s ' ra une valeur, mais 
7 4^ V—fiV cette fois-ci dans une colonne. 




Les compteurs des deux joueurs 
accumulent les points obtenus 



1 



3 a 



lors de chaque choix. Attention ! 
Il faut parfois savoir faire des 
coups "faibles" si l'on veut 
gagner à plus long terme. 



370 LOCftTS (3*0'TABX+ 7 )/2,2*LTABX+2-'PRIHT Oï;B$;LTA 
BX>=LE :/ 'iig^LÏAEK; : OTrtBs-l/TO$+RIGHT$ïE$iLTAB%!.; 
5-OTABS ; 



",D,*Tj_r.1>: 

-,PR 89'"» 



4^u hurf în-l lu B:KiM5J s 0;NcAf 

430 FOR N«=l TO 9 :"%=-! 00: IF Nfe=LÎABï THEN 560 

440 IF KÎD$;3iîN?),CTAB%,2!<>Oi THEN 430 

460 1? HX=LIABX THEN 550 
470 GOTO "0 

490 rOh M%=; TO 15 3?SF 2 

500 IF MK=CTAB" THEN 540 

510 IF HID*<B»(NX!,HXJi>=0* THEN 540 



^fl ?r Uft! 'HîrisïRt 'H¥l M* ">' 

Jiu ii /îlijuiiL-» \i?* \itft, jFj/e, i. t 

530 vïi=VA„ ;>J ;Di ; 3S; w- ,MS,2> ; 
540 NEXT MX 
550 RfNX)=W-VX 



--'? 



54C 



>=01 THEN 630 



580 FOR NX=i TO 8 

590 IF 8ID$(B$(NS),CTftBS, 

ù:"J ,r K'JUmVa Inhii Sel) 

610 vS=RiNK) 

620 LTrtE J :=N% 



640 L?S=VALiHlDMB${LTABX!,CTABX,2» 

650 IS=Î*+LPX 

660 LOCATE ; 34CTAB%*7 ï / 2 , 2J:LTAB%+2 ; PR I NT 0$ 

670 B*(LTABX)=LEFT*(3t(LTABX).CTABX-l)+Q$+RïGHT*!B 

$iLTAB%ï ,i3-CTAB%) 

680 LOCAT^ ( 3*CTAB%-!-7ï /2 - 2iLTAB%*2 PR'.HT 0> 

690 M«=2 

700 GOSL'b 3^0 

T'ii f-fiT") ?5C 



,-EM 

ç-y __ 

OlS LOCATï 



i i i LM û i i itiltl ii il i lï i il ■■ i LU I 

OATE 4.3;?RINT CHR$(150! ; ;F0R IX=1 T0'7;PRIN 



T CHRî(i54/+CHRt(154!+CKR$U58i 

54i+GHR$':i54i+CHRtîl56î 

760 L$=GKRIC1495+" ":K5=CHRiM 

1591 



: NEXT TRI NT OHR*; 
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770 FOR JX=i 70 7: PRINT TABi4! 

780 FOR î%=! 10 SlPRINT L*; :NEXT:PRINT CHR1Î149) 

790 FRINT TAB(4)CHR$(151)::FQR IX=1 TO 7:PRINT Kl; 

:NEXT:FRINT CHR$ii54!*CHR»<i54!+CHR*il57) 

800 «EXT 1% 

810 PRINT T*B ( 4 ) ■ ; FOR I%=1 TO 8:PRÎNT L$':NEXT;PRI 

NT CHRK149Î 

820 PRINT ÎAB!4!CHR«(147);:FOR l%-\ TO 7:PRINT CHR 

$ ( 154 ) +CHR* ( i 54 î +CKR* ( i 55 ) ; ; NEXT : PRINT CHR$U54)+C 

HRM541+CHR1Î153! 

B30 FOR Y%=1 TO 8; FOR CPS=0 TO 7 

840 XX = 2îCP«+ s 

650 LOCATE X%+CP%+4,2+2*Y%; IF HID»(B«<YX),XX,2) a "l 

5" THEN PEN 3 ELSE PEN 1 

860 PRINT MID*(B*;Y%),X%,2) 

379 NEXT:NEXT 

880 RETURN 

890 REM 

391 REM AFFICHAGE DES POINTS 

892 REM 

900 LOCATE 30 , 9 ; PR I NT " VOUS ; " S% : LOGATE 30,11 :PRINT" 

rpr > B Tt' 

910 LOCATE <v,2i:PRINT"DERNIER COUP ="LP%;LOCATE 10 
,23; IF MOX=l THEN PRINT" AU CPC DE JOUER" ELSE FRIN 
T "A VOUS DE JOUER" 



920 
930 
931 

Q-.J 

940 
950 

VoO 

970 
9R0 
v90 



RETURN 

REM 

REM FIN DE LA PARTIE 
REM 

VIHDOV #0,1,40.20.25; CLS : &* ÏNDOw #0,1,40,1,: 

LOCATE 10,21 ;PEN 3 

IF SX=TX THEN PRINT" MATCH NUL" 



IF S%>T% THEN PRINT"BRAVO...VOUS AVEZ 

IF SJKÎX THEN PRINT" J'AI GAGNE." 

PEN 11 LOCATE 5,24: PRINT" VOULEZ-VOUS:" 

23: PRINT" 1- LA MEME PARTIE"; LOCATE 20,2 

UNE AUTRE PARTIE" : LOCATE 20,25:PRINT :, 3- 



;agne," 

LOCATE 
[; PRJNT" 
ARRETER 



1000 R$=INKEY*; IF R$<>"" THEN 1000 
1010 Rt=INKEY$; IF R»="" THEN 1010 



1C20 IF R*="3' THEN CLSlEND 

1030 IF R$="l s THEN CLS;FOR I%=1 TO B:B»(IX)=BBi!l 
%'; ;NEXî;LÎA6^LL"A5%;CÎÂB^CCTAB% ; G0T0 230 
1040 RUN 11 j 

1050 REM 

1051 REM CLIGNOTEMENT DU CURSEUR 
'0^2 REH 

1060 LOCATE ( 3*CTAB%+7 } /2 . 2*LTnB%+2 ; PEN 2;PRINT 0$ 
:FCR 1 = 1 TO 1 : NEXT : LOCATE !3*CTAB%+7)/2,2*LTAB%+2 
;PSN Î;PRINT û*:FOR 1=1 TO 10;NEXT 
107C Ri=INKEY$:IF Rt= i: " THEN 1060 ELSE RETURN 

1080 REM 

1081 REM ANALYSE DE LA COLONNE 

1082 REM -- 

iJ90 v$ = " " 

1100 FOR H%-\ TO 8:C$=C*+BIDt(BI!HX),CTftBX,2):!ffiXT 

1110 IF 0<=0»+0$+û*+Oi+0$+0$+Oi+0» THEN 930 

1120 RETURN 

1130 REM 

1131 REM REGLES DU JEU 

1132 REM 

1140 CLS 

1150 print: print "une grille est affichee, contenan 

t des": print: print "nombres disposes de façon alent 

o:re." 

1160 print :frint 3 le but du jeu est d obtenir plus 

DE " 

1170 PRINî:?R:NT H ?OINTS QUE L'ORDINATEUR." 

1180 PRINT; PRINT "QUAND C'EST A VOUS DE JOUER, VOUS 

P OUV£Z" 

1190 PRINT: PRINT "DEPLACER LE CURSEUR HORIZONTALEME 

NT": PRINT; FRINT "AVEC LES FLECHES "+CHR$(242)+" E 

T •+CKRf / :-43)*' ET PRENDRE" 

120C PRINT ;PRINT"LE NOMBRE CHOISI EN APPUYANT SUR 

tCCPïl." 

1210 PR1 NT "L ORDINATEUR CHOISIT DANS LA COLONNE." 

1220 LOCATE 10, 24: PRINT "APPUYEZ SUR UNE TOUCHE" 

12^0 Ri=iNKEYJ IP R$="" THEN 1230 

1240 RETURN 

1250 ENL 
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Nous avons essayé de coupler 
au CPC 464 deux unités de 
disques, une unité de 3" et une 
unité de 5" 1/4. Nous les avons 
choisies pour leur excellent rap- 
port qualité-prix. 

Ces unités sont vendues drive nu, 
c'est-à-dire qu'elles ne compren- 
nent ni coffret, ni alimentation. 
Pour leur choix, nous nous som- 
mes basés sur leurs caractéristi- 
ques techniques qui étaient iden- 
tiques à celles de l'unité DDI1 de 
l'AMSTRAD. 

Notons tout de suite que le but 
de ce couplage est d'ajouter une 
deuxième unité de disque à 
l'AMSTRAD. Cette unité devient 
donc un complément de l'unité 
DDI1 de l'AMSTRAD, le drive 
rapporté sera donc le drive B. 
Notre choix s'est porté sur deux 
unités de marque TEAC. Le 
modèle 3" porte la référence 
FD 30A, alors que le modèle 
5" 1 /4 est l'unité FD 55A donnée 
par TEAC comme totalement 
compatible avec le FD 30A. 
Les deux principales caractéristi- 
ques mécaniques prises en 
compte pour leur choix étaient : 
une vitesse de rotation du disque 
de 300 tours/minute et un nom- 
bre de pistes par disque de 40. 
A partir de là, les autres caracté- 
ristiques seront imposées par le 
contrôleur de disque et le logiciel 
de commande. Pour les caracté- 
ristiques électriques, l'électroni- 
que de commande du drive devra 
posséder un signal de sortie 
READY vers le contrôleur ; ce 
signal indique au contrôleur que 
le disque est en rotation et à la 
bonne vitesse ; elle doit aussi 
posséder le signal MOTOR ON, 
signal de mise en rotation du dis- 
que avec arrêt automatique après 
un certain temps sans accès. 
Les principales caractéristiques 
de ces disques sont : 

— temps d'accès moyen 171 ms, 

— temps d'accès piste à piste 
12 ms. 



Nous vous donnons, sur la figure 
1 , le câblage du connecteur côté 
drive. Si nous regardons mainte- 
nant le connecteur côté contrô- 
leur de disque de l'extension 
AMSTRAD, nous remarquons 
que la numérotation est diffé- 
rente ; par exemple, le signal 
READY est en broche 1 au lieu de 
34, drive sélect est en broche 
25, cette inversion correspond à 
un retournement du connecteur 
et pour notre unité DDI1, le fil 
bleu de la nappe de liaison 
interface-drive DDI1 correspon- 
dra à la broche 34 de notre nou- 
veau connecteur. Nous avons 
effectué la liaison entre le 
connecteur disponible sur le câble 
du DDI1 et nos drives par l'inter- 
médiaire d'un câble souple et de 
deux connecteurs autodénu- 
dants. Voici la référence des 
connecteurs utilisés : ils sont de 
marque ANSLEY et il faut, côté 
interface, un connecteur mâle 34 
broches, référence connecteur 
maie blue macs 609-3406, côté 
drive, il faudra un connecteur 
encartable 34 broches, référence 
blue macs 609-3405 ; la liaison 
entre les deux connecteurs se fai- 
sant par une nappe à 34 fils. 
Notons qu'il n'est pas nécessaire 
de disposer d'une presse spéciale 
pour presser ces connecteurs. 
Une remarque s'impose : l'inter- 
face disque de l'AMSTRAD étant 
alimentée en +5 V à partir du 
drive DDI1, il est donc néces- 
saire, comme nous l'avons fait, 
de couper les quatre liaisons sui- 
vantes au câble que vous aurez 
réalisé. Ce sont les liaisons qui 
correspondent aux broches 2, 4, 
6 et 14 de votre nouveau con- 
necteur. 

Comme nous l'indiquions au 
début de cet article, les drives 
sont nus et sans alimentation. Il 
sera donc nécessaire de les ali- 
menter en + 1 2 V et en + 5 V, 
le connecteur d'alimentation du 
drive se situe à l'arrière de la pla- 
tine électronique et se présente 
comme en figure 2. Le raccorde- 



ment des alimentations doit se 
faire de la manière suivante : 

— en 1 : + 1 2 V, consommation 
inférieure à 600 mA, 

— en 2 et en 3 : V, 

— en 4 : + 5 V, consommation 
inférieure à 400 mA. 

Le couplage du drive 3" ne nous 
a posé aucun problème, les 
straps du drive ont été position- 
nés sans problème ; il suffit de 
mettre le strap DS1 (le drive est 
en B pour l'AMSTRAD), et le 
strap Ml qui correspond à la mise 
en route du moteur par la broche 
de commande MOTOR ON. 
Pour le drive 5" 1/4, nous avons 
positionné les straps suivants : 
HS, DS1, IU, SM. Notons que la 
différence entre le 3" et le 5" 1/4 
réside dans la nécessité de char- 
ger la tête de lecture-enregistre- 
ment pour le modèle 5" 1/4, alors 
que dans les unités 3", la tête est 
automatiquement chargée par 
l'introduction d'un disque et la 
fermeture de la porte. 
A la mise en route, que ce soit le 
drive 3" ou le drive 5" 1/4, tous 
les deux ont fonctionné normale- 
ment, et l'auteur utilise mainte- 
nant abondamment le drive 5" 
car tout l'intérêt de ce couplage 
réside dans le prix de revient des 
disques 5" 1/4 comparé au prix 
des disques 3" ; le rapport de prix 
pouvant aller jusqu'à quatre en 
faveur du disque 5". Mais le for- 
mat 3" a quand même ses avan- 
tages ; il est d'un encombrement 
plus faible, et les disques auront 
une durée de vie supérieure à 
celle des 5" de par leur protec- 
tion mécanique. C'est aussi pour 
cela qu'il est intéressant d'avoir 
les deux formats simultanément. 
Notre choix s'est porté sur une 
unité de marque TEAC pour le 
5" 1/4, mais il existe d'autres uni- 
tés compatibles dans d'autres 
marques. Il est possible de se pro- 
curer par correspondance l'unité 
TEAC auprès de la société 
MICRO C INFORMATIQUE au 1 
avenue du Général de Gaulle, 
35170 BRUZ ; le coût de cette 
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unité auprès de cette société est 
de 1490 F TTC. Cette société 
peut aussi éventuellement four- 
nir les connecteurs et les alimen- 
tations, les tarifs peuvent être 
obtenus contre une enveloppe 
timbrée. 

Nous venons de parler du cou- 
plage électrique d'une deuxième 
unité de disque, mais il faut main- 
tenant y mettre nos logiciels. Le 
formatage des disques sur AMS- 
TRAD se fait sous CPM, mais 
cette commande ne formattant 
que dans le drive A, il va donc 
être nécessaire, pour formater un 
disque 5" 1/4, qui sera en drive 
B, d'utiliser une autre commande 
de notre CPM. Cette autre com- 
mande est la commande COPY- 
DISC, qui copie un disque du 
drive A vers le drive B ; cette 
copie s'effectue piste à piste, et 
si nous mettons dans le drive A 
un disque 3" vierge mais for- 
maté, nous recopierons ce forma- 
tage sur le disque 5" 1/4. 

9 9 9 9 9 9 
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LE COIN BIDQULLE 



Denis BOURQUIN 



A partir de ce numéro, nous 
commençons une série d'ar- 
ticles qui vous amèneront à réa- 
liser un certain nombre d'exten- 
sions pour votre AMSTRAD. 
Nous avons en projet : un exten- 
sion entrée-sortie parallèle et série, 
un programmateur d'EPROM, une 
extension mémoire, un contrôleur 
de disque permettant de coupler 
plus de deux unités de disques et 
permettant l'utilisation de disques 
à plus forte densité, mais là aussi, 
vos souhaits de réalisation seront 
pris en considération dans la 
mesure où ils pourront intéresser 
les autres lecteurs de CPC. 
Mais pour cela, il va tout d'abord 
être nécessaire de réaliser une 
extension du bus de l'AMSTRAD. 
En effet, sur ce dernier, le bus 
Z80 est sorti sur le connecteur 
50 broches, mais il est essentiel- 
lement réservé à l'extension dis- 
que, et par conséquent, si vous 



y branchez le contrôleur de dis- 
que, il n'est plus question d'y 
ajouter une réalisation person- 
nelle. 

Nous allons donc commencer nos 
réalisations par une petite inter- 
face très simple, conçue sous la 
forme d'un circuit imprimé se 
mettant sur le connecteur 50 bro- 
ches (connecteur disque) du 
CPC. Ce circuit imprimé com- 
prend quatre buffers 8 bits per- 
mettant d'amplifier les principaux 
signaux du Z80 nécessaires dans 
toute application et d'isoler en 
même temps le microprocesseur 
de nos réalisations ; notons que 
les signaux du Z80 fournis par 
l'AMSTRAD et présents sur le 
connecteur extension ne sont pas 
bufferisés et cela par souci d'éco- 
nomie. Nous aurons deux circuits 
pour amplifier le but adresses, un 
circuit pour amplifier le bus de 
données et un circuit pour ampli- 



fier les principaux signaux de 
commande, tels que MRQ 
(demande d'accès mémoire), 
I0RQ (demande d'accès aux 
entrées-sorties), RD (accès en 
lecture), WR (accès en écriture). 
Les circuits utilisés pour cette 
amplification seront des 74LS245 
qu'il sera facile de se procurer 
chez tout revendeur de compo- 
sants électroniques. Les autres 
signaux présents sur le connec- 
teur 50 broches seront reliés 
directement aux autres connec- 
teurs et seront disponibles. Sur 
ce circuit imprimé, nous trouvons 
bien sur le connecteur 50 bro- 
ches permettant le raccordement 
à l'AMSTRAD, ainsi qu'une 
embase pour connecteur auto- 
dénudant 50 broches. Sur cette 
embase, nous brancherons une 
nappe de 50 fils permettant de 
déporter notre bus amplifié vers 
un fond de panier réalisé, lui 
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aussi, en circuit imprimé et 
comportant 4 connecteurs, ce 
qui lui permettra de recevoir qua- 
tre réalisations. Au bout de ce 
fond de panier, nous trouverons 
un connecteur identique à celui 
se trouvant à l'arrière de l'AMS- 
TRAD, et ce afin de permettre 
aux possesseurs de l'interface 
disque DDI1 de la coupler à leurs 
réalisations. 

Tous les connecteurs conservent 
le brochage identique à celui se 
trouvant à l'arrière du CPC ; pour 
son implantation, il suffit de se 
reporter au manuel de l'AMS- 
TRAD. Dans ce numéro, nous 
vous donnons, en figure 1 , le bro- 
chage du 74LS245, ainsi que le 
schéma électronique de l'inter- 
face bus en figure 2. La figure 3 
donne un plan général de cette 
réalisation. Dans notre prochain 
numéro, nous vous donnerons 
l'implantation des composants, le 
plan du circuit imprimé, ainsi 
qu'une première réalisation à 
monter dans le fond de panier. 




«R ft1 A2 «3 fi4 fi5 A6 A? R8 GND 

Figure 1 
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^ A TABLE ^ 

X Michel ARCHAMBAULT <S 



Le plan de table d'un banquet 
se doit de respecter les 
"règles" suivantes : chaque 
convive doit avoir comme voisins 
et vis-à-vis une personne de sexe 
opposé, et aucune de ces trois 
personnes ne doit être son 
conjoint ; sauf cas particuliers 
(jeunes mariés). 



y 



Ce fastidieux casse-tête est 
résolu instantanément par ce pro- 
gramme, mieux, il vous propose 
plusieurs solutions répondant aux 
critères ci-dessus : deux colonnes 
de noms à l'écran vous présen- 
tent les personnes en vis-à-vis. 
Lorsqu'une des solutions vous 
plaît, inutile de la recopier, pres- 
sez la touche E, et elle est éditée 
sur imprimante. 

Ce programme n'est pas d'une 
utilisation fréquente (hélas, 
hélas !... ), mais sa conception, 
uniquement logique et aléatoire (il 
n'y a pas de RND), constitue un 
exercice Basic qui, lui, n'a rien de 
futile ! 

Si vous n'avez pas l'intention de 
le recopier au clavier, essayez 
quand même le module du titre 
(lignes en 12000) dont le type 
d'animation pourra vous inspirer 
pour des programmes person- 
nels. 

L'ENTREE DES NOMS 

Elle se fait en trois étapes : la liste 
des couples, celle des filles, celle 
des garçons. Le nombre total de 
convives est limité à quarante, ce 



pour des raisons de présentation 
à l'écran. 

COUPLES (lignes en 3000) 

L'écran de saisie présente "Mr, 
Mme", vous complétez par le 
nom. En fin de liste, on tape "Q" 
(quitter). Le nom tapé est entré 
en deux tableaux DIM ; M$(C) 
pour les maris, et E$(C) pour les 
épouses. L'adjonction du "Mr" 
ou du "Mme" est automatique. 

FILLES (lignes en 4000) 

Les noms entrés sont mis en DIM 
F$(F). Le préfixe "Mie" est auto- 
matique. 

GARÇONS (lignes en 5000) 

Même méthode, mise en DIM 
G$(G). Le préfixe automatique 
est constitué par deux astéris- 
ques. 

En cours de saisie, le total TOT 
est incrémenté ; s'il atteint qua- 
rante, on est prévenu par un bip 
sonore, et le programme passe à 
la suite. TOT est bien sûr égal à 
(Cx2) + F + G. 

Dans les trois écrans de saisie, les 
noms sont autopositionnés sur 
deux colonnes. En bas de l'écran 
figurent les décomptes incrémen- 
tés, par exemple, "5 Demoisel- 
les **Total = 18". Le passage 
d'un tableau à l'autre se 
commande par la lettre "Q". 

LA DISPOSITION 

En fin de saisie, nous possédons 
quatre listes, les DIM M$, E$, F$ 
et G$, avec lesquels le pro- 
gramme va créer une cinquième, 
D$(D), D signifiant "Disposi- 
tion". C'est une suite de noms 



avec alternance masculin-féminin 
et éloignement des conjoints. 
C'est là, le "âros morceau" ! 
Une fois cette suite établie, nous 
l'afficherons sous forme de bou- 
cle fermée autour d'une table lon- 
gue. En faisant tourner cette bou- 
cle d'un cran à chaque fois, nous 
pourrons changer les vis-à-vis, 
tout en conservant ses voisins 
droite-gauche. OK ? 
Ces "calculs" concernent le trai- 
tement des couples, de loin le 
plus complexe, puis on enchaîne 
sur le mixage des listes filles et 
garçons. 

LA DISPOSITION 

DES COUPLES (lignes en 6000) 

(figure 1) 

Le traitement est différent selon 
le nombre de couples, C est pair 
ou impair. Si C est pair, la varia- 
ble P=1. 

D'abord, un premier passage en 
zig-zag : M$(1), E$(2), M$(3), 
E$(4), etc. (voir figure 1a). Ce 
premier passage est commun aux 
nombres de couples pairs et 
impairs. 

Second passage : pour C impair, 
c'est du zig-zag mais en 
commençant, cette fois, par 
l'épouse du couple n° 1 : E$(1 ), 
MS$(2), E$(3), M$(4), E$(3), 
etc. que C soit pair ou impair, on 
termine toujours par une épouse ; 
normal puisque l'on débute tou- 
jours par le mari M$(1). 

DISPOSITION 

DES CELIBATAIRES 

(lignes en 7000) 

La fonction Basic MIN(G,F) four- 
nit le nombre de "couples de céli- 
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bataires", l'excédent en filles ou 
en garçons sera conservé tel quel 
(comment faire autrement). Là, 
c'est très facile, on prend alter- 
nativement un garçon, une fille : 
G$(1), F$(1),G$(2), F$(2),etc ; , 
et on complète par "l'excédent". 
Le tableau D$(D) est enfin ter- 
miné. On a alors D = TOT. 



L'AFFICHAGE 
(lignes en 10000) 

Les deux colonnes à l'écran figu- 
rent les personnes en vis-à-vis. 
Elles sont séparées par deux 
caractères graphiques flèche gau- 
che - flèche droite, appartenant 
au troisième jeu de caractères de 
l'AMSTRAD, obtenus en faisant 
précéder de CHR$(1 ) (ceux obte- 
nus au clavier par CTRL H, CTRL 

I). 

C'est la liste D1 (D) qui aurait été 
pliée en épingle à cheveux, le 
coude étant en bas de l'écran. 
En bas de l'écran figure la 
légende : 

P = Permutation : c'est le change- 
ment de vis-à-vis ; peut être répé- 
tée un nombre indéfini de fois. 
E = Edition (si vous avez une 
imprimante) : la disposition pré- 
sentée à l'écran est imprimée. On 
peut demander une édition (ou 
plusieurs) de diverses permuta- 
tions. 

Q = Quitter : tout est effacé, on 
a alors le choix entre l'abandon 
du programme et une nouvelle 
saisie de noms. 



LA STRUCTURE 
DU PROGRAMME 

L'auteur est un inconditionnel de 
la programmation "structurée" 
(ou "modulaire"). Ainsi, tout le 
scénario du programme est dans 
les lignes en 1000 (peu nombreu- 
ses... ). Elles appellent les diffé- 
rents sous-programmes (ou 
modules) par des GOSUB ; d'où 
une souplesse totale pour des 
modifications ultérieures, et ce en 
toute clarté puisque chaque 
module (ou sous-module) débute 
par un numéro de ligne multiple 
de 1000. Une bonne et sage 
habitude à prendre. 
Autres précautions habituelles : 
en ligne 100, toutes les variables 



seront des nombres entiers : gain 
en mémoire (2 octets au lieu de 
5... ) et boucles FOR-NEXT deux 
fois plus rapides. D'autre part, on 
confirme le MODE 1 et l'ORIGIN 
graphique afin de ne pas "héri- 
ter" d'options antérieures qui ne 
sont pas annulées par NEW ou 
RUN. 

En fin de programme, ligne 1300, 
on restitue les options couleurs 
par défaut que l'on avait modi- 
fiées. Ce qui s'appelle laisser le 
micro dans l'état où on l'a 
trouvé... 



* 



LE TITRE ANIME 
(lignes en 12000) 

Il n'apparaît qu'en fin de charge- 
ment. Sur l'écran, se dessine un 
verre ballon qui se remplit de vin 
rouge, du Beaujolais bien sûr, car 
je suis chauvin sur ce point. 
Ce grand arc de cercle (le ballon) 
est tracé par une suite de "cor- 
des de cercle" depuis 135° 
jusqu'à 405° (lignes 12020 à 
1 2050) . C'est très rapide. Le pied 
est dessiné par des DRAWR 
(12100-12110). 
Le vin : sur un rayon légèrement 
inférieur, afin de ne pas effacer 
le verre, on fait PLOT sur un arc 
de cercle depuis 270° (le fond) 
jusqu'à 370° ; de là, on trace des 
traits rouges vers la gauche, de 
longueurs égales à deux fois le 
cosinus de l'angle (lignes 1 2200 
à 12230). 

On attaque alors le texte : 
La chaîne "Disposition des 
convives" vient se centrer en 
arrivant par la gauche de l'écran 
(12310 à 12330). Puis, deux 
lignes plus bas, la chaîne "autour 
d'une table" vient se centrer en 
arrivant par la droite (12340 à 
12360). 

En bas à gauche de l'écran, le 
nom de l'auteur et l'année appa- 
raissent caractère par caractère 
en commençant par le dernier 
(12400-124Ï0). 
Deux secondes plus tard, il s'ef- 
face de la même manière par 
PEN = PAPER (.12420-12430). 
Les boucles FOR J = 1 TO ... sont 
des ralentisseurs. 
En bas à droite, apparaît alors 
"Pressez une touche", suivi de 
CALL &BB06 (ligne 12450 ), 



routine qui bloque le programme 
en attendant un caractère au cla- 
vier. C'est plus simple à écrire 
que WHILE INKEY$ = " ":WEND. 
NOTE : Toutes ces techniques 
d'animations simples (et beau- 
coup d'autres) sont décrites plus 
en détail dans l'ouvrage du même 
auteur "MIEUX PROGRAMMER 
SUR AMSTRAD" (Editions 
SORACOM). Hé hop ! un peu de 
pub... 

PETITS CONSEILS 
D'UTILISATION DU 
PROGRAMME 

Il est nécessaire d'avoir un nom- 
bre de couples supérieur à deux 
afin que les conjoints soient sépa- 
rés. 

Pour ne pas séparer un couple, 
exemple des jeunes mariés à un 
repas de noce, il suffit de les 
entrer en tête de liste des céliba- 
taires. 

Entrez les enfants en dernier, ils 
seront ainsi regroupés. 
Si le nombre total des convives 
est impair, il y aura forcément 
quelqu'un sans vis-à-vis. A vous 
d'effectuer des permutations 
successives (touche P) jusqu'à 
trouver la solution viable, par 
exemple la personne que l'on 
peut mettre en bout de table. 
Suprême avantage de ce pro- 
gramme : si quelqu'un vous 
reproche d'avoir été mal placé, 
vous pourrez lui répondre par cet 
air connu : "Ce n'est pas de ma 
faute, c'est l'ordinateur... ". 



EGi 


INDE DES 7 AR TABLES: 


A : 


Angle en Degrés 


B : 


Nombre de vis-à— vis 


p 


Nombre de Coup les 


C* 


: Nom entré 


D 


Nombre de disposés 


D* 


: Noms disposés 


E* 


: Noms des Epouses 


F 


Nombre de Filles 


F* 


: Noms des ailles 


FG 


: FLAB de quitté 


B 


No.nbre de Garçons 


St 


! Noms des Barçons 


I 


Elément de Comptage 


j 


Elément de Comptage 


L 


N° ligne d'Ecran 


M* 


: Noms des Mari s 


F' 


Parité Couples 


R 


Rayon 


R* 


: Caractère Réponse 


TO" 


r : Total Convives 
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Couple 
n°1 

n°2 

n°3 

n°4 

n°5 





M$ E$ 




n 



* 



n 




n 



Figure 1 

Ce mode de balayage des listes Maris et 
Epouses assure une dispersion parfaite dans 
la liste finale D$. 



1 ** passage 
C pair et impair 



2 * m * passage 
C impair 



passage 



C pair 



10 ' TOUS A TABLE. 

20 'Disposition de Convives autour d'une Table. 

30 ' AMSTRAD * Michel ArchambauH * 1985 

100 DEFINT A-2;0RIGIN 0,0:MQDE 1 

200 GOSlffi 12000; 'TITRE 

1000 ' DEROULEMENT DU PROGRAMME 

1010 DIM M*(21),E*«2i),F*(37),G*(37),Dt(4t) 

1020 PAPER 0:PEN 2; BORDER 15ICLS 

1030 LOCATE 4 , 1 : PR I KT "E = ENTREZ LES NOMS DES GO 

«VIVES. " 

1040 LOCATE 4,13:PRINT "Q = QUITTER LE PROGRAMME," 

1050 Rt=UPPER* î INKEY* ) : ÎF R$="" THEN 1050 

1060 IF R*="Q" THEN 1300 

1070 IF RîO"E" THEN PRINT CHR*!7i :R$=" B IGOTO 1030 

1100 GOSUB 3000: 'ENTREE COUPLES 

1110 GOSUB 4000: 'ENTREE FILLES 

1120 GOSUB 5000: 'ENTREE GARÇONS 

1130 GOSUB 6000: 'CALCULS COUPLES 

1140 GOSUB 7000: 'CALCULS CELIBATAIRES 

!Î50 GOSUB 10000; 'AFFICHAGE 

1200 SUN 1000 

1300 BORDER 1; PAPER 0:PEN l;CLS 

;3!0 END 

3000 ' ENTREE DES COUPLES 

3010 PAPER l:PEN 0: BORDER 14',GLS;G=i;L=l 

3020 LOCATE 5. 2: PRINT "20 COUPLES saxi ; QUITTER— 

) G" 

3100 LOCATE 2,3+L;G0SUB 3500:1F FQ=1 THEN 3200 

3110 LOCATE 21,3+L:GOSUB 3500: IF FQ=1 THEN 3200 

3120 L=L+i'.GOTO 3100 

3200 RETURN 

35ÔÔ LINE INPUT "Mr,H»e ".Ci; IF UPPER$(Ci)="Q" THE 

N FQ=i;C=C-l:GOTO 3600 

3510 G*=LEFTi(C$,12) ;M$(C) = "Mr "+C$:EI(C)="Miie "+C 

i 

3520 T0T=T0T+2:IF TOT=40 OR C=20 THEN PRINT CHR$(7 

!:FOR 1 = 1 TO 4000 : NEXT : FQ= 1 : GOTO 3600 

3530 PEN 3:LOCATE 9,24:PRINT C; "couples « Total»" 

:TOT:PEN 

3540 C=C+ 1 

3600 RETURN 

4000 ' ENTREE DES DEMOISELLES 

4005 IF TOT=40 THEN 4600 

40 10 PAPER l:PEN 0: BORDER 7 ; GLS : F= i :L=! : FQ=0 

4020 LOCATE 3,2:PRINT "36 DEMOISELLES maxi : GUITT 

ER— > Q" 

4100 LOCATE 2,3+L:GOSUB 4500: ÏF FQ=! THEN 4200. 

4110 LOCATE 21,3+L:GQSUB 4500: IF FQ=1 THEN 4200 

4120 L=L+l:GOTO 4100 

4200 RETURN 

4500 LINE INPUT "Mie ",C* : IF UPPER* (C$ 3 = "Q ,! THEN F 



* 



Qzj ;F=F-1 :G0T0 4600 



FTi(Ci,i2};FiiF)="Mfe "+Ci 



tJlV ul-LD 

4520 IOI=ÏÛÏ+i;IF TOT=40 OR F=36 THEN PRINÎ CHRii? 
):FOR 1 = 1 TO 4000 ; NEXT : FG= 1 ; GOTO 4600 

4530 PEN 3; LOCATE 7, 24: PRINT F; "Desaise! les ** Tôt 

3l=".:TOî;PEN 

4540 F=F+1 

4600 RETURN 

5000 ' ENTREE DES GARÇONS 

5005 If TOT=40 THEN 5600 

5010 PAPER i 'PEN 0;BORDER 1 ;CLS:G=Î ,L=1 :FQ=0 

5D/0 LOCATE 5,2:PRINT "36 GARÇONS maxi ; 9UITTER- 

> Q" 

5100 LOCATE 2.3+L;GOSUB 550C: IF FQ=i THEN 5200 

5 1 10 LOCATE 2î,3+L;GOSUB 5500: IF FQ=1 THEN 5200 

5120 L=L+i;GOTO 5100 

5200 RETURN 

5500 LINE INFUÏ "** ",Ci;IF :;PPERi{n») = a Q" THEN F* 

=l:G=G-l:GOTO 5600 

5510 Ci=LEFTi!Ci,12);GiCS)="** "+Ci 

5520 TOT=TOT+l:IF TOT=40 OR G=36 THEN PRINÎ CHRi(7 

):FOR 1 = 1 TO 4000 ; NEXT ;FQ=1: GOTO 5600 

5530 PEN 3: LOCATE 9,24: PRINT G'"Gai"cnn=. W Total=" 

'TOT; PEN 

5540 G=G+1 

56C0 RETURN 

6000 ' DISPOSITION COUPLES 

cOiO D=C: IF C=0 THEN 6900 

6020 IF ÏNT!C/2></2 THEN P=l 

M 00 'FASSftGE 1 

6110 1=1 

6120 D=Dt;;D*.D:=MiiI) 

6130 IF HC THEN D=D+l:DiiDî=Ei! 



:I=I+2;G0T0 61 



* 



6150 IF P=l THEN 6300 

6200 ' PASSAGE 2 C IMPAIR 

6210 1=1 

6220 D=DM;Di!Dî=Ei(I) 

6230 lî 7 HC THEN D=D+1 ;Dt îD)=Mf i I + ï 

90 

6240 GOTO 6900 

6300 ' PASSAGE 2 C PAIR 

6310 I=2;D=D-1 

6320 D=D+i:D*;D)=M$m 

6330 D=D+s:Di(B)=Ei(I-l! 

6340 IF 1=0 THEN 6900 

6350 1=1 +2; GOTO 6320 

6900 RETURN 

7000 'DISPOSITION CELIBATAIRES 

7010 A=MIN!G,F):IF G+F=0 THEN 7900 



n IGOTO 62 
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?C3( D=D+1 Dï!Dï=G»il •L^* -'' : PRÏHI T . ! ' ' Dtïï);SPCS20-LEN(D$(i) S ! 

?040 D=D+'.:D*iD)=F«US y^C '"iiiïr^+i-D 

7C50 NEXT V -040 NEXT 

7060 IF G=F THEN 7900 [-050 PRINT «8 

7070 IF G<F THEN 7200 i;-)b0 RETURN 

7i00 FOR i=?+î TO G l?000 TITRE 

"110 D=B+l:D$(D!=Gt(I! ^ Jfc» 12010 KDE ÎTAPER 2;PEN OiBORDER 9:CLS:R=100 



>« 



12020 DEGlFLOT 249,271,0 

7130 GOTO 7900 W i 2030 FOR A=!35 TO 405 STEP 10 

7200 FOR I=G+1 TO F iv;;4fi DRAW ft*COS!A!+32û,R*SIN<A)+200 

7210 D=D+l:Di(D)=Fi!I) ; 2050 NEXT 

•220 NEXT •l^ 1 2 1 00 PLOT 310, 1 OC ; DRftWR Q.-50;DRAWR -60, Tu 

'9ÛC RETURN 75^ i 21 î DRAliîR TTOTRAwR -60, 1 ! DRftWR 0,50 

10000 'AFFICHAGE 1) 122C0 R= 5 8 

10010 PAPER 2:PEN OlBQRDER 9:CLS:PRÏNT 12210 FOR A=2?0 ÎO 370 

10100 IF INT(TOT/2XTOT/2 THEN TOTTOTT 1 2220 Pin? OO3in)tR+320,SINïASiR+200,3 

10110 BTOT/2 l* 12230 DRAWR -COS« A)*R*2 , ; NEXT 

10120 FOR 1 = 1 Tu E ^d. 12300 ? C N 3;H$="DISPOSITION DE CONVIVES" :B$="AUTOU 

10130 PRINT ! " D*( I ) : ;PRINT TABU9! CHRlf 1 l.THRîi <T*% 5 TUNE TABLE. :: 

8!;CHR$!1);GHR$<9!;" "; D$ < TOT+ 1 - 1) 12310 ni=SPACEî \ « 40-LEN i H$ ) 1/2-D+HI 

10140 NEXT ;2^2Û FOR 1=1 TO LEN(A*Î ; FOR 1=1 TO lOOlNEXT 

10150 PEN 3:LOOATE i,24:PRINT TOï;"P=Periutation; %**A 12330 LOCATE 1 ,3-PRINT RIGHTïlA$,Ii ;NEXT;PEN 

E=Edi t :oriJ Q=Ql! lier" ;PEN Q:R$="" /W^ i234 ° A$=B$+3PACE$( (40-LENïB* ) Î/2Î 

10160 R$=UPPERi;iNKEYt);IF R$="" THEN 10160 O ;2350 FOR 1=1 ÎO LEN(A$) :FOR 1=1 TO 100;NEXT 

10170 IF R$="Q" THEN 10900 ;23ftQ LOCATE 41T, 6: PRINT LEFTiini, I) INEXT 

10180 IF R$="E" TKEN GOSUB 1 1 000 ; R*= !M! ; GOTO 10160 £, 124)0 N$ = ' ; n,Archs«ibsu! t-1935" TOR 1=18 TO 1 STEP - 

TiT IF R$<TP !: THEN 10150 *S^^ ' 

1C200 'PERMUTATION <r*% 12410 LOTTE ;+l,24;PRINT MIDt<N$ ,1 , 1 i ;FOfi J=l TO 

10210 D$(ûi=Difl' 100 NEXT: NEXT 

10220 FOR 1 = 1 TO TOT-1 ;D$U!=D$UT ) 12420 FOR J=l TO 4000:NEXT;PEN 2 : FOR 1 = 18 TO 1 STE 

10230 NEXT M^J> p "î 

10240 DîTOE =D$(Q) T^Q 1243 ° L - CATE " + 1 ' 24 PRINT MID$!N$ 7 I , 1 î :FOR J=i TO 

10250 R*="";GÛTO 10000 <J 100 NEXT; NEXT 

10900 RETURN 12^50 FEN 3;LOCATE 22,24;PRINT "pressez une touche 

Î1000 'EDITION ^ 'TCALL ÎBB06 

11010 PRINT »8,CHR$;27);CHR$!64i wJ^ 12500 RETURN 

11020 FOR 1 = 1 TO B ^>A 6553: ' FIN DE LISTING 



A\A/ARI 



30 'l 



O 
o 



so ' ttinnxttt.t%n%nnnîn%itnutt 

7 GOSL'E 1460 ' présenta: 'o r : ?' règles 
80 

^^ 100 KX=i;QX=14:P8=iS-FX=50:DX=12 

° n MU D$=SPflGE* ( 39 î 

12: DIM B'Q";,T ; 3lï,YiQB},»;Qi;,vl6),Uiô),ARu 



O 5} 

A O 

AWARI est un jeu de réflexion w • 140 =========== DEPAE 

d'origine africaine où vous affron- O 150 RANDOKIZE TIME 

tez votre CPC. De toutes les * A 

variantes de ce jeu, celle-ci per- O ^W ° 

met au mieux d'exercer ses o 

talents de tacticien, surtout dans O m 

le maniement des grosses mai- • • 

sons. A noter : la particularité de AM\ 210 G0SLB 1410 



COSUB 1280 
GOSUB 1140 

H : (0/N; ! ' 



7 I n 



pouvoir se déplacer dans la par- UJ O 22C GOSUE 

tie au moyen des flèches horizon- ^ 230 i-CCATE 1,24:?RINT D$ 

taies et de reprendre ses coups • O 240 IF R»="0" JHEM G0RX= 

permet de progresser plus rapide- O ^ ~ i! " ■"* r) ÎHEN 20 j 



O 



bu 
O w 2"0 '======= BOUCLE PRINCIPALE 

GOSUB 2700 ; ARi COUPS, 15) =1 



ment dans l'apprentissage de ce 
grand classique des jeux de stra- 
tégie. Les règles du jeu sont indu- n QA 290 PEN ~2 ; LOCATE i ,21 ; PRINT 
.ses dans le programme. O WW PRINT" je réfléchis tigosub ?h 
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o 



o ^o 



o o o/o* 



300 ÎF m<A THEN 1380 

310 LOCATE 1,21:PRINT Dt;;LOCATE 1,21;PRINT ! ' JE J 

QUE EN ";M%; SOUND 7,100,10,5 

320 SCPC%=0: FOR JX=1 TO Q%;T!JX)=B(JS!lSCPC%=SCPC 

Îi+B ( J% ) ; NEXT : GOSuB 710 

330 ÏF SCPCSOO THEN 360 

340 OK%=0:FOR IX=1. TO 6: IF Biï%)+I%>=7 THEN OK*=l: 

NEXT 

350 IF OK%=0 THEN 1380 

360 FOR J%=1 TO Q%;Bi J%i=T< J%) ;NEXT;GOSUB 1150 

370 IF B!Q%!<24 THEN INTER%=û;GOTO 400 

380 LOCftTE l ; 2i:PEN 3;PRINÏ" J'AI GAG 

NE |,! ;DS:GOTO 570 

400 ======= JEU DU JOUEUR ============= 

410 IF INTSR%=1 THEN 430 

420 LOCATE 1,24: PRINT Dî! LOCftTE 1,24; PEN ZlPSINT" 

QUEL EST VOTRE MOUVEMENT ? (1 - 6! " 
430 GOSUB 1410 
440 LOCftTE 1,24;PRINT D$ 
450 ÏF ASCiRt)=242 THEN GOTO 2600 
460 ÎF ASC (R$) =243 THEN GOTO 2730 
470 IF R$<"1" OR Rt>"6" THEN 400 
430 IF INTER%=1 THEN 430 
490 GOSUB 2700 ! ARi COUPS, 15 )=0 
500 MS=VftL!R$) 

510 FOR n-\ TO QX',TUXî=B<J*!:N£XT 
520 GOSUB 710: IF KS<0 TKEN 650 
530 FOR «=1 TO QX;B(JX)=T(J%):NEXT 
540 KN%=MNX+l; GOSUB 1140 
550 IF B(P5U<24 THEN 270 

560 LOCftTE 1,21: PEN 3;PRINT ,; BRAVO ! VOUS 
AVEZ GAGNE. ";D* 
570 PEN 2:LOCATE i,24;PRÎNT" VOULEZ-VOUS ANALYSER 

CETTE PARTIE ?" 
580 GOSUB 1410 
590 IF Rt="O u THEN COUP%=0: LOCATE i,21;FRINr 

"+CHR$(242)+ B ou JEU ou "tCHR$(243!+D»:GO 
TO 2730 

600 LOCATE 1,24: PRINT" VOULEZ-VOUS JOUER UNE AUTRE 
PARTIE IO/N)" 

610 GOSUB 1410:1F Ri= H C" THEN 140 
620 IF R$="N" THEN CLS;LOCATE 15,15; PEN 3iPRINT B AU 

REVOIR" ;CALL £BB!8;ENC 
630 GOTO 610 
640 ; 
S50 '=====«= COUP ILLEGAL ============= 

660 PEN 3;LOCATE 1,24 :FOR i=l TO 1 5 ; SOUND 7,50,2, 

1 2 : FOR j=l TO 20 ; NEXT j,i 

670 IF M%=-1 THEN PRINT" CETTE CftSE EST VIDE." 

680 IF M%=-2 THEN PRINT" IL FAUT LAISSER DU JEU A 

L' ADVERSAIRE." 

690 FOR ï=l TO 1000;NEXT:PEN 1 ; COUP^COUPS- 1 : GOTO 

400 

700 : 

710 :=:::::: CASE VIDE ?? "- = = -"= = 

720 IF T!MS)=0 THEN HX=-i; RETURN 

730 ! 

74C 

750 Rt="H" ; IF H»>6 THEN RÎ="CPC" :GOTO 770 

760 FOR J%=1 TO Qs : Y ( J% ) =T « J% ! ; NEXT : GOTO 790 

770 FOR Vk-\ TO 6;Y!JS)=T! JX+6>:Y!JS+6)=Ï< JX):NEXT 

780 Y(PK)=T<Q%) ;YiQSi=TiP%) ; H%=M%-6 

790 CK=M%;NS=YîC%!:FOR JX=1 TO N%:C%=CS+1 

300 IF CI=P% THEN CS=i 

810 IF C%=m THEN C%=C%+1 :GOTO 300 

S20 YIC5U=Y<T'U-1 :NEXT:YiMS!=0;L%=« 

830 IF L%<7 OR Y « LS ) > 3 OR Y(L%)<2 THEN 350 



H40 Y f P^i=Yip%)+Y(L%) ;Y(L%)=0:L%=LK-1 ;GOTO 830 

350 3%=0:FQR JK=7 TO D%:SI=S%+Yi 1%) :NEXT 

360 IF Ss=0 THEN MK=-2;RETURN 

S7C IF R$= !! H" THEN FOR J%=1 TO Q% ; T( J%»=Y( JS5 NEXT 

; RETURN 

380 "OR JS=1 TO ô'T; JK'=Yi J%+6) ;T( J%+6)=Y( J%ï ;NEXT 

890 T(3%)=YCP%) ;ï(PS!=Y(Q%) iRETURN 

900 ; 

920 : 

930 FOR AS=! TO 6:M%=Aa+6: IF B(M%) =0 THEN USA5U=-F 

% : GOTO 1100 

940 FOR JS=! TO QXlïl JS)=5! JS) :NEXT:GOSUB 710 

950 IF M%<0 THEN U«n%)=-F%;GOTO 1100 

950 IF TÏQ%)>23 THEN MS=A%+6 , RETURN 

970 FOR J%=1 TO Q%;W( J%S=îi J») :NEXT:FOR KX=1 TO 6 

980 IF T(KX)=0 THEN V(K%)=F%;GOTO 1080 

990 FOR «=1 TO GS ; T! « !=¥ (JX>: NEXT :JK=KX; GOSUB 71 

ÎOÙO IF HX<0 THEN V(KX)=F%;GOTO 1080 
1010 XA=0:X8=Q,05;XC=C;XB=û;FQR J%=7 TG DS 
1020 X3=XB+T;îS);IF T!J!i!>0 THEN XA=XAt! 
1030 IF TUSK3 THEN XC=XC+1 
1040 ÎF TiJXÏ/XD THEN XD=T\JS/ 
1050 NEXT ;XE=X3: FOR JX=1 TO à;XE=XE*T( J%; ;NSXT 
f^A ip~, .k'k xn-l-tn/?B (SC=!-XC/6 XB=XB'1É 
î 070 VÏKS ! =Zft* ! Xfi+XB > +ZB* ( XC+XD ! +T \ QS ) +B ! ?% i -B i QX S 

-T'pt'i 

1030 NEXT :UiAX)=FX: FOR ÏX=1 TO à: IF ViJXKUifiS) TH 

EN U(AX)=VUX) 

1090 NEXT 

1130 PRINT".": ; NEXT ;M%=0;XA=-F%; FOR J%=1 TO 6 

1110 IFSU!JS)>XAS THEN XA='Jf J%) :H%=-T%+é 



1140 ========== AFFICH. DES PIONS ===== 

1 150 FEN 2; LOCftTE 5,5:PR!NT"CPC" : HEN 3 

1160 FDn JX=Û TO 5 1 LOCATE 4? JS+iO , 9 ; PRINT 8U2-JS) 

1170 IF B(12-JX5=Q THEN PEN 0:PR1NT CHRi(8)*CHR*i3 

!+STRINGî;2,143);;PEN 3 

1180 I r BÎ12-JXÏ>9 THEN PEN i; PRINT CHRf <3;+CHR*;l 

43); ;PEN 3 

1190 NEXTlPEN 3:LOCATE 5,11 PRINT BiQS) 

1200 L.OCATE 1,13; FOR JK=0 TO 5 

1210 LOCATE 4* Jïi+10, 13PRINT B(JS+U; 

1220 IF BiJX+l)=Q TKEN PEN OlPRINT CKR* (8 ) ^-CHRt ( G ) 

+STRI NG* f 2 , 1 43 ) ; : PEN 3 

1230 IF B(JX+1>>9 THEN PEN 1 : PR I NT CHRî!8)+CHRt<14 

O j ; • 3FJI 3 

Ï240 NEXTiPEN 3 : LOCftTE 34,11 ;PRINT B(P%):PEN 2 
1250 LOCATE 34, :7;PRINT"V0US ,i 
1260 RETURN 



1280 -------- TRACE Du JtU ============ 

1290 C%=4lL*=7: GOSUB 1770 

1300 PRINT CHRîi30S;;PEN 2;FOR Vk-\ TO 3;PRINT TA5 

i 1 è > STR I NG $ ( 1 1 . 1 4 3 ) ; NEXT 

13;: PRINT CKR>!30 -CHR*\22)+CHR1(1); ; PEN S, FOR IX 

=1 TO 3;PRINT TftBi 16iSTRING<fil ,207; :NEXT:LOCftTE 1 

7,2: PEN 3' C RINT"A W A R I " IPRINT OHRï ï22)+CHRî ^0> 

1320 FEN 2;LOCATE 11, 5. FOR ÎS=0 TO 5:PRINT TAB(4*J 

S+105;12-J*;:NEXT 

1330 LOCATE îl,l:;F05 Js-0 TO 5 ; PR I NT TftBi4*JS+10) 

; JS+l; ;NEXT 

1340 INK 1,3; IKK 2,13 INK 3,25 

Î35Ô RETURN" 

Î38Ô PEN 3 . LGÔATE^loVï? : W pRÎ*NT"PA£ DE MOUVEMENT LE 
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\ jVO ir 3<rS?=rMtf3) Tntu FitiNTifKinT 
PitRTïE NU^LL. : 'G0TO 570 
1400 IF B(QS)>BiPI! THEN 380 ELSE 5sG 
1410 REM ============ O/N ============== 

1420 Rî=UPPERÎ(INKEY*) ; IF R$O f: " TKEN 1 42C 
1430 R>-UPPER$(ÏNKEYS- ; IF R$=" THEN 1430 
1440 RETURN 

14c 

ER 



PRESENTATION ========== 

m 



i qr sq< 



: 430 SYM3CL 251, L 

1490 SYMBOL 252 ^IF^TF^TF^FF^FF^FF.^FF ,iFF 

t r,~fi £ï»mi 7BO ipc *c? *pp 8.FP fcPF S.PF R.PP HP? 

510 SYffiQL 254,&,FF,«fF,8JT,&FF,«?,« ! FE,&FE,e 1 F3 

:520 SYMBOL 255,«.FF,8JT,MT,H ? F J «JT,i l 7F.« 1 7F,l l lF 

1530 ft$=CHR$ ; 143 > +3TRING» 1 1 2 , 32 > +CHR* ( 1 43 ) -. PEU 1:L 
OCftTE 14-1 ;FCR IX=î Tu 2: PRINT TAE(14) A*: : NEXT 

1540 'iIDî'ft*,û,4)-STRINGt:4,143);PRlNT TAB'14) Ai 

1550 0*iA*,5',6)=STaiNGî:6,143);PRINT TAE (143 A* 

1560 PRÎNÎ TfcB.14)STfi!NGt',14,143i 

1570 PCP. i%--> TC t PRINT TRE( 1 7 >STRING$ « 8 , 143^ : NE 

153C FOR Ï%=1 TO 3 : PRÏNT TABU8)STRING*(6, 143: :NEX 

159C PRINT TABU9)STRîNG*(4,143) 
1600 PRINT TfiBt2C!STRING$(2!l43} 
1610 As=CHR*i214i+CHR*!143)+CHR*(215S:PRINT CHR*(2 
2;+CHR*(lJ;:LOCATE 18,6 PEN 3:FHINT A*+A* 
162D ftt=CHSt •' 222 ) +CHR* ( 207 ) +CHR* î 223 5 : LOCATE 18,6; 
PEN 2:PRINT Aî+ft$ 
î 630 PRINT TAB,18)STRINGI(6,143) 
1640 A*=CHR*(213)+GHR*!143!+CHR*(212);PRINT TABU8 
)hi*M 

Î65C LOCATE 19,7 ; PEN 0;PRÏNT CHR* (231): LOCATE 22, î 
; PRINT CHR* (231) 

1660 LOCATE 19,12; PEN 3:PRINT STR1NG* (4,196); LOCAT 
E 19,13:PRINT STRING*(4,196) 
1670 PRINT CHHt(22;*GHR>i0); 

1680 PEN i : LOCATE 16,20:PRINT CHR*!252)+STRING*i9, 
H3HCHR*(253)TABUè')STRING*(îl,143)TABîlè!CHR*(25 
5)-STRING>«9,143)+CHRÎ(254> 

16*0 PEN 31L0CATE 17,21 iPRINT CHR* ( 22 ) -CHR* ( 1 5 "A » 
A R I*+CHR*(22)+CHR*(0) 

1700 PEN 2; LOCATE 2,24: PRINT "VOULEZ-VOUS LA REGLE 
DU JEU ? (O/N!" 
î7!0"gQSUB"i410 
1720 IF S$<>"0' THEN RETURN 
1720 CX=4;L%=3: GOSUB 1770 
1740 INK 1,3;INK 2 , 1 3 : 1 NK 3,25 
1750 G0SU3 2020: RETURN 
1760 : 
Î770 ■====== TRACE Du TABLIER ========== 

1780 CLS;INK 0,0:INK l,0:INK 2,0;INK 3,0 

1790 PEN î ; LOCATE C*,LK;PRINT CHR$ < 252) +STRÎNG* ( 33 

, 143)+CHR$(253) ; :FOR IX=1 TO 7:PRINT TABi4)STRING* 

(35,143): :NEXT:PRINT TAB f 4 )CHRt « 255 ) -î-SÏRINGt (33,14 

3 i +CHR* i 254 ) 

1800 PRINT GHR$(22)+CHRt(l) 

1810 PEN û;LOCATE CX,LX+1:PRINT CHRt ( 9) ■i-CHR$(252> 

+STRING*i2.143)+CHR>(253!;;FOR IX=1 TO 6;PRINT CHR 

*f9!+CHR*<252)+ CHR$(143)+ CHRi(253) ; ;NEXT: PRINT C 

HR* i 9 j +CHR* \ 252 ) +STRI NG$ (2,143) +CHR* ( 253 5 

1820 PRINT TAB!4)CHRt(9!+STRING*(4,143i;;FQR I%=1 

T0 6;?RINT CHR* 1 9 ! +STRÏ NG* (3,143);; NEXT ; PRINT CHR* 

(9)+STRING*!4,i43, 

1630 PRINT TABÎ4)CHR$i9i+STRING$(4,143!;FOR I%=1 

TO 6; PRINT CHR*{9)+CHR${255)+CHR*U43!+GHR*.254!;: 

NEXT ;PRINT CHR*(9)+SÎRING*(4,143);:PRINT TAB(34)S 

TRINGJ.4,143) 

1E40 PRINT TAB(4 ;CHR$( U ) +CHR$ ( 9 ) +STRÏNG» (4, 143) 



° •" •. • o» .°*o : .°» •• . °. # ? o .• 

1350 LOCATE Cft,L%+5;FRINT CHR* ( 9 ) +STR I NG * ( 4 , 1 4 3 ) ; ; 

FOR IX=1 TC 6;PRINT CHR* ( 9 ) +CHR* ( 252 ) +CHR* (143)+ C 

HRî'253;::NEXT:pRINT CHR* î 9 ) + ETRING* (4 , 143 > 

1860 PRINÏ TABC4)CHR* ( 9 ) +STRING* ( 4 , 143) ' : FOR IX=1 

TO 6;PRINT CHR* (9 ) +STRING* ( 3 , 143 ) : :NEXT;PRINT CHR* 

:9'*STR!NGt(4,143i 

18^0 PRINT TAB14! CHR* i 9 ) +CHR* ( 255 ! +STRING* (2,143) 

-CHRî!254i;:F0R IX=1 TO 6;PRINT CHR* ( ? ! +CHR* (255) + 

DHR * ( 1 43 ) +CHR* 1 254 ï ; : NEXT : PRINT CHR* ( 9 î +CHR* ( 255 ) + 

ETRING* (2,143! +CHR* ( 254 ) 

1380 ?RÏNT CHR*î22S+CHR*i0) 

1890 'INK , : 1 NK 1,3: INK 2,13; INK 3,25 

1900 RETURN 

1910 : 

1920 ========== 4 GRAINES / CASE ====== 

1930 PRINT CHR*! 30): PRINT CHR* ( 22 5 +CHR* ( i ) ; 

1940 PEN 3:LS=3:FCR GX=10 TO 30 STEP 4:GOSUB 1980: 

FOR IX=1 TO 150; NEXT: NEXT 

1950 LX=4:FCR C%=30 TO 10 STEP -4;GOSUB 1980; FOR I 

X=l Tu 150: NEXT; NEXT 

i960 PRINT CHR*(22)+CHR*(0);PEN 2 

1970 RETURN 

1930 LOCATE Cs,LK;PRINT CHR*(136) ;lCCATE 0%,L%+2;P 

RINT CHR* (130): LOCATE C%+2,L%+2: PRINT CHR*(129);LO 

CATE 0%+2-L%:FRINT OHR*( 132) : SOUND 7,50,2, 1 2 : FOR I 

%= 1 TO 50; NEXT; RETURN 

1990 ; 

2000 ========= APPUI TOUCHE =========== 

2010 LOCATE 33,25;PEN 3 ; PRINT" APPUYEZ" ; :CALL &BB18 

:LCCATE 33,25:PEN Q;PRINT STRING*(7,143ï; ; PEN 2:R 

ETURN 

2020 '======= REGLES DU JEU ============ 

2030 PEN 2; LOCATE 1,16;PR1NT"LE PLATEAU DE JEU CQM 

PORTE 12 ALVEOLES" 

2040 GOSUB 2000 

2050 N?i=l:FOR IX=10 TO 30 STEP 4: LOCATE 1%, 12:PRIN 

T N,ï;SOUND 7,200,5, 13;FOR J=l TO 1 50 ; NEXT : N%^N%+ î : 

NEXT 

2060 FCR I%=30 TO 10 STEP -4; LOCATE 1%, 2: PRINT N%; 

SOUND 7,200,5, 13 :FOR J=l TC i 50: NEXT : N%=N%+ i ; NEXT 

2070 LCCATE I ,18;PRINT"REMPLIES AU DEPART DE 4 GRA 

INES CHACUNE.": PRINT 

2080 GOSUB 2000: GOSUB 1920 

2090 LOCATE 1 ,20:PRINT"LES 6 ALVEOLES DU BAS ( NUM 

EROS 1 s 6 i":FRINT 

2100 PRINT'OONSTÎTUENT VOTRE CAMP. CELLES DU HAUT" 

; PRINI 

2110 PRINT'-'SONT CELLES DE VOTRE ADVERSAIRE." 

2120 GOSUB 2000;tfINDOW #1 ,1 ,40, 13,25;CLS#1 

2130 LOCATE 1,14 

2140 PRINT'OHAQUE JOUEUR A TOUR DE ROLE PREND LE": 

PRINT 

2150 PRINT" CONTENU D'UNE CASE DE SON CAMP ET SEME" 

; PRINT 

2160 PRINT"TOUTES LES GRAINES QU'ELLE CONTIENT UNE 

'! PRINT 

2170 PRINT "PAR UNE DANS CHAQUE CASE EN TOURNANT":? 

RINT 

2180 PRINr'DANS LE SENS INVERSE DES AIGUILLES" :PRI 

NT;PRINT"D'UNE MONTRE." 

2190 GOSUB 2000 :CLS #1 

2200 LOCATE 1,16 : PRINT "EXEMPLE DE DISTRIBUTION; 

CASE N"+CHR*!167)+"4." 

2210 LOCATE 23,13;PEN 3;PRINT CHR*(240) 

2220 FOR 1=1 TO 500: NEXT 

??QA ppf' j 

2240 PRINT CHR* ( 22 ) +CHR* ( 1 ) : LOCATE 22, 8; PEN 0:PRIN 
T CHR$(1361+" " +CHR* ( 1 32 !; LOCATE 22,!0:PRINT CHR*( 
130)+" "+CHR*(129) 

2250 FOR 1=1 TO 800; NEXT 
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2260 LOCATE 27,9:PEN 3;PRINT CHR* i 25 1) ; SOUND 7,100 

,10,12 

2270 FOR 1 = 1 TO 800:NEXT 

2230 LOCftTE 3i,9;PEN 3;PRINT CHR*(251) ISOUND 7,100 

.10,12 

2290 FOR 1 = 1 TO 800 ; NEXT 

2300 LOCftTE 31,5: PEN 3;PRINT CHR* ! 251 ); SOUND 7,100 

,10,12 

23ÎÔ FOR 1=1 TO 800:NEXT 

2320 LOCftTE 27,5;PEN 3;PR!NT CHR$<251) : SOUND 7,100 

,10,12 

2330 PEN 2; LOCftTE i,20:PRINT"SI Lft CftSE CONTIENT P 

LUS DE 11 GRAINES": PRINT 

2340 PR1NT"0N EFFECTUE UN SECOND TOUR EN SAUTANT" ; 

PRINT 

2350 PRINTSA CASE DE DEPART." 

2360 GOSUB 2000 :CLS #1 

2370 LOCATE 1,14: PEN 3;PRINT"PRISE: ";PEN 2 

2380 PRINT;PRÎNT"SI LA DERNIERE GRAINE DISTRIBUEE 

TOMBE" 

2390 PRINT:PRINT"DANS UNE CASE ADVERSE CONTENANT D 

EJA " 

2400 FRINT:PRINT"UNE OU DEUX GRAINES, LE JOUEUR FRE 

ND" 

2410 FRINT:PRINT"TOUT LE CONTENU DE CETTE CASE (2 

OU 3i" 

2420 GOSUB 2000 CLS #1 

2430 LOCftTE 1 ,14;PRINT"SI Lft CASE PRECEDANT CETTE 

CASE VIDEE" 

2440 PR I NT ; PR I NT " CONT I ENT 2 OU 3 GRAINES, CES GRAIN 

ES SONT" 

2450 PRINT i! PRISES ELLES AUSSI ET AINSI DE SUITE" 

2460 PRINT:PRINT"EN REMONTANT JUSQU'A CE QU'ON ARR 

IVE SUR" 

2470 PRINT'UNE CASE NE CONTENANT NI 2 NI 3 GRAINES 

2480 PRINT ;PRINT :, OU DANS SON PROPRE CAMP," 

2490 GOSUB 2000: CLS #1 

2500 LOCATE 1 . : 6 PEN 3:pRINT !! DOr; DE GRAINES:" 
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2510 PRINT, PRINT;PEN 2;PRINÎ i 'SI L'ftDVERSAIRE N'A P 

lUS DE GRAINES" 

vv-a s"'NT'PRINT"IL FAUT LUI EN DONNER OBLIGATOIRE 

MENT." 

2530 PRINT:PRINT"SI C'EST IMPOSSIBLE, LA PARTIE S'A 

RRETE." 

2540 yOSUB 2yC0;CLS #1 

2550 LOCATE 1 , 1 8 ; PEN 3;PRINT a GAIN DE LA PARTIE" ;PE 

N 2 

2560 PR!NT;PRINT' PRINT:PRINT"LE PREMIER A AVOIR 2 

4 GRAINES A GAGNE." 

?5ff) "flÇrg 70-13 '"' • R . #1 

2580 LOCATE ! ,18:PRINT"LE PROGRAMME PERMET LE RETO 
!JR EN ARRIERE": Phi NT "AVEC OU NON LA REPRISE D'UN C 
OUP AVEC ,! :PRINT:PRINT"LES TOUCHES "+GHRï\242) + !i ET 

"+CHRÎÏ243Î 
2593 GOSUB 2000;RETURN 
2600 REÏ! ===== RETOUR EN ARRIERE ====== 

2610 IF COUPAI THEN 400 

2620 LOCATE 1 : 21: PRINT D$ 

i6Ju ujai *-uUurs i 

2640 GOSUB 2690 

2t50 !NTERS=AR!COUP%,15) 

2560 G0"0 400 

26'! : 

2680 TRANSFERTS 

2690 FOR \%-\ TO 3%;B(I%)=AfiiCQUPS,IS> ".NEXT- GOSUB 

11 40 ; RETURN 

2700 COUPS=COUPS+i:COUPMAX*=COUPS:IF GOUPS=300 THE 
M IF B(Q/»i>B(P%i GOTO 380 ELSE IF B(P%)>EiG%! THEN 
GOTO 560 ELSE LOCATE 1-21: PEN 3:PRINT" M 
ATCH NUL .,,. '.GOTO 570 
2710 FOR 11=1 TO Cffi:AR'COUP%,IS)=EU!i);NEXT 
2 7 20 RETURN 

2740 IF C0UP^=C0UPHAX£ THEN 400 

2750 COUP^COUPs + l 

2?7C irER ! ï=AR'COU D S.:5) 

;?0: ÛC-T-Ô 400 



PETITES . ANNONCES 



f 




Du matériel à vendre, des 
contacts à prendre, des logiciels 
à échanger ? Une seule adresse : 
les petites annonces de CPC. 
Pour une somme modique (3 tim- 
bres à 2,10 F), vous bénéficiez 
d'un support largement diffusé. 
Qui plus est, votre texte passera 
dans une autre revue ; MEGA- 
HERTZ (Informatique et Commu- 
nication) : une chance supplé- 
mentaire de faire des affaires ! 



*¥¥¥ 



Vends console vidéo Philips G. 7400 état neuf 
+ extension Basic + 12 cassettes de jeux : 
2500 F. Tél.: (88) 01.72.68. 



Echange, achète programmes AMS- 
TRAD CPC 464, cherche notice en fran- 
çais, Battle for Midway. J-P. WOJAC- 
ZEK, 10 allée des Peupliers, 78390 
BOIS D'ARCY. 



Vends cause double emploi imprimante Laser 
PP50 coul. état neuf, juin 85, garantie : 
900 F. P. LEONARD, 95b rue de l'Aigle, 
92250 LA GARENNE COLOMBES. 



Stéphane, possesseur d'un 664, aimerait 
échanger des idées et des programmes ( 1 20) 
sur cassette ou disquette (jeux, utilitaires). 
Tél.: (3) 468.41.39. ■ 

Prisonnier cherche pour AMSTRAD 464 
trucs, astuces, aides, contacts, listings, etc. 
Tout contact bienvenu. Egalement échange 
programmes. LANDRY - 4108-B/349, 10 
quai de la Courtille, 77011 DELUN. 



Cherche personnes possédant le CPC 464 et 
664 pour échange de programmes d'astu- 
ces... Envoyer vos listes d'échanges, répon- 
ses assurées. Eric PRAT, 1 allée Claude 
Debussy, 45390 PUISEAUX. 

Possède 100 logiciels AMSTRAD dont 40 lis- 
tables. Cherche utilitaires de qualité en 
échange, ainsi que jeux. Robert CROC, 4 
impasse Riquet, 31700 BLAGNAC. 

AMSTRAD CPC 464 : logiciel moniteur simu- 
lateur DX CW : étude progressive et entraî- 
nement code morse, toutes vitesses, tous 
symboles, avec superposition de souffle, 
interférences, brouillages par autre CW, 
fading, etc. Simulant une réception DX. 13 
paramètres à introduire permettant toutes 
configurations. Textes en clair ou codes aléa- 
toires. Tableaux de corrigés en calculateur : 
125 F. PICAULT, 13450 GRANS, Tél.: (90) 
55.91.65. 
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POUR VOUS 



LES SYNTHETISEURS DE FREQUENCE 

Michel LEVREL - F6DTA 125 F 

COMMUNIQUEZ AVEC VOTRE ZXÔ 1 

2° 2DITI0N 
BENIS BONOMO & Eddy DUTERTRE 90 F 



EXTENSIONS DU ZX Ôl 

collection poche E. DUTERTRE 

COMMUNIOUEZ AVEC ORIC ET ATMOS 

Denis BONOMO & Eddy DUTERTRE 

PROGRAMMES POUR ORIC 

E. JACOB & J.PORTELLI 

NAVIGUEZ SUR ORIC ET ATMOS 

collection poche E.JACOB & J.PORTELLI 

APPRENEZ L "ELECTRONIQUE SUR 

ORIC ET ATMOS 

Pierre BEAUPILS 



48 F 



145 



45F 



110F 



MIEUX PROGRAMMER SUR ORIC 
ET ATMOS 

Michel ARCHAMBAULT 



NOUVEAU 




JOUEZ AVEC HECTOR 

2° édition - Eddy DUTERTRE 

JOUEZ AVEC AQUARIUS 

collection, poche - L.GENTY 



110 F 



43 F 



45F 



LES MYSTERES D'ALICE OU LA PRATIQUE 
DU 6Ô03 

Une des meilleures critiques de la presse professionnellS 
Alain BONNE AUD 1| 

LES MYSTERES DU LASER 

Denis BOURQUIN 



théorie 



(A ff V U E 



SIONNSS D-0«fC 





MIEUX PROGRAMMER SUR AMSTRAD 

Michel ARCHAMBAULT 85 F 

PLUS LOIN AVEC LE X07 

Michel GANTIER 85 F 

APPRENEZ L'ELECTRONIQUE SUR M SX 

Pierre BEAUFILS 95 F 

APPRENEZ L'ELECTRONIQUE SUR AMSTRAD 

Pierre BEAUFILS Q« 



\O^Vr 






Disp onibl e en août à la Soracom 

Prix0ÊK 

Mieux programmer sur Amstrad 
de M Archambault Prixi 
plus port lOZ 




UPUV.S.R DEVOIE* 



imulate 



fô\S*» % 



■ ■il VM^^MiaÉ ue chasseur à 

DELTA, jne |. 

phique excepta 



° mE m u înu« 






s'éteindra... 



b PL WS.R DE CRÉER : ^^ 



jl ^WdjâàÉi , ogcMS d e «*. --SS5SS 






LA VITE»»» " > 






•Vil MtlËA^H .iiii^atil aue 



bauds), poss*! 1 ' l su prême ta ""«"^ jamais vu l 

- „ E LA FORTUNE : 
LE PLA»S» R ° E ^ acoéconomique 




„ ,eplus 
Auteur : B. ^ cn 



Auteur . n- — 

LE PLAISIR DE GÉRER 



pus adaptées au ma ' <LEM a 
H =nt mauvaise*- 



fc n iu»>" "rticisionsoe v" L •_ PO nioncwi» \n--r , „ vec un ■ ■■-- 

° 0n,P,et r D EGU'LHEBMI£B 
Auteur : M- vc 



3 \ ■ 1 ..._„m« de la main ( 



v. 



LE PLAI»>"— . (oau me,lon- 

i.,<io de c 



Auteur . r- " v " 



LE PLA.»." - d , une entrepr. 

nieS ' r .pROUILUEB 
Auteur .C-" 1 " 



ERE INFORMATIQUE 

27, rue de Leningrad 75008 Paris Tel (1)387.27.27+ Télex 650134 



